package Badly_Behaved;

sub new {
  my $class = shift;
  my $self = {};
  bless ( $self, $class );
  $self->{_Some_object_ref} = Foo::Get_other_object_ref();
}

sub DESTROY {
  die 'terrible problem!' if ! defined $self->{_Some_object_ref};
}

package main;

$hmph = Badly_Behaved->new();

##</code><code>##

#!/usr/bin/perl -w
use strict;
$|++;

use XML::Comma;

my $DOWNLOAD_FILE = "DOWNLOAD_TIME";
my $ldt = 1021398860;

my $local_users =
XML::Comma::Def->read(name=>'W_User')->get_index('main')->
  iterator(where_clause=>"record_last_modified > $ldt");


while ($local_users++) {
}

sub dump_log {
}

##</code><code>##

  (in cleanup) Can't call method "def_by_name" on an
undefined value at
/usr/lib/perl5/site_perl/5.6.1/XML/Comma/NestedElement.pm
line 288 during global destruction.

##</code><code>##

#!/usr/bin/perl -w
use strict;
$|++;

use XML::Comma;
$::index =
  XML::Comma::Def->read(name=>'AllAfrica_NewsStory')->get_index('post');

print "-->index/def: " $::index . ' ' . $::index->{_def} . "\n";

##</code><code>##

D: XML::Comma::NestedElement=HASH(0x86eeb6c)
   XML::Comma::Bootstrap=HASH(0x86a2084)
D: XML::Comma::Element=HASH(0x86ef81c)
   XML::Comma::Bootstrap=HASH(0x86a2084)
D: XML::Comma::Element=HASH(0x86ed1e4)
   <undef>
  XML::Comma::Indexing::Index=HASH(0x86ed268)
  _Index_sorts --> HASH(0x86f8abc)
  _def --> <undef>
  _Index_columns_pos --> 13
  _nested_elements --> ARRAY(0x86eb7c8)
  _tag --> index
  _Index_doctype --> AllAfrica_NewsStory
  _init_index --> 38
  _nested_lookup_table --> HASH(0x86eb7d4)
  _attrs --> HASH(0x86ed1f0)
  _Hookable_index_hooks --> ARRAY(0x86f77f0)
  _Hookable_stop_rebuild_hooks --> ARRAY(0x86f8a08)
  _Index_store_type --> post
  _tag_up_path --> DocumentDefinition:index
  _Index_bcollections --> HASH(0x86fc9b4)
  DBH_connect_check --> _check_db
  Doc_storage --> HASH(0x86f7688)
  _Index_columns --> HASH(0x86f8a2c)
D: XML::Comma::NestedElement=HASH(0x86eea58)
   <undef>

##</code><code>##

D: XML::Comma::NestedElement=HASH(0x8ae51c4)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:224):
224:      print '   ' . ($::index->{_def}||'<undef>')."\n";
   XML::Comma::Bootstrap=HASH(0x8982c88)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:226):
226:      if ( (! defined $::index->{_def}) && (! $::index_dumped)) {
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:223):
223:      print 'D: ' . $_[0] . "\n";
D: XML::Comma::Element=HASH(0x8ae6e24)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:224):
224:      print '   ' . ($::index->{_def}||'<undef>')."\n";
   XML::Comma::Bootstrap=HASH(0x8982c88)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:226):
226:      if ( (! defined $::index->{_def}) && (! $::index_dumped)) {
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:223):
223:      print 'D: ' . $_[0] . "\n";
D: XML::Comma::Element=HASH(0x8ae5110)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:224):
224:      print '   ' . ($::index->{_def}||'<undef>')."\n";
   XML::Comma::Bootstrap=HASH(0x8982c88)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:226):
226:      if ( (! defined $::index->{_def}) && (! $::index_dumped)) {
Watchpoint 0:   $::index->{_def} changed:
    old value:  'XML::Comma::Bootstrap=HASH(0x8982c88)'
    new value:  undef
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XML/Comma/AbstractElement.pm:223):
223:      print 'D: ' . $_[0] . "\n";