#! perl -slw
use strict;
use threads ( stack_size => 4096 );
use Thread::Conveyor;
my $belt = Thread::Conveyor->new( {
maxboxes => 50,
minboxes => 25,
optimize => 'memory', # or 'cpu'
});
async{
print while defined( $_ = $belt->take );
}->detach;
$belt->put( $_ ) for 1 .. 10;
$belt->put( undef );
####
Problem signature:
Problem Event Name: APPCRASH
Application Name: perl.exe
Application Version: 5.10.1.1007
Application Timestamp: 4b60ba96
Fault Module Name: perl510.dll
Fault Module Version: 5.10.1.1007
Fault Module Timestamp: 4b60ba95
Exception Code: c0000005
Exception Offset: 000000000006c6f8
OS Version: 6.0.6001.2.1.0.768.3
Locale ID: 2057
Additional Information 1: 90e0
Additional Information 2: e939a93db866b76af40148e39e07fd0d
Additional Information 3: 85c4
Additional Information 4: 6c632c487ffa8e4b9b7137dbbbe72313
##
##
C:\test>t-TCcrap
1
2
3
4
5
6
7
8
Thread 1 terminated abnormally: Can't use an undefined value as an ARRAY reference at C:/Perl64/site/lib/Thread/Tie/Array.pm (loaded on demand from offset 1939 for 176 bytes) line 75.
Terminating on signal SIGINT(2)
##
##
Argument "n/a" isn't numeric in printf at C:/Perl64/site/lib/Devel/Trace.pm line 20.
>> [0] t-TCcrap.pl : 6: my $belt = Thread::Conveyor->new( {
>> [0] C:/Perl64/site/lib/load.pm : 221: $load::AUTOLOAD =~ m#^(.*)::(.*?)$#;
>> [0] C:/Perl64/site/lib/load.pm : 222: goto &{$load::AUTOLOAD} if _can( $1,$2 );
>> [0] C:/Perl64/site/lib/load.pm : 443: my ($module,$sub) = @_;
>> [0] C:/Perl64/site/lib/load.pm : 444: return if $module eq 'main';
>> [0] C:/Perl64/site/lib/load.pm : 450: _scan( $module ) unless exists $load::AUTOLOAD{$module};
>> [0] C:/Perl64/site/lib/load.pm : 451: my ($subline,$start,$length) =
>> [0] C:/Perl64/site/lib/load.pm : 453: return unless $start;
>> [0] C:/Perl64/site/lib/load.pm : 461: local( $!,$@ );
>> [0] C:/Perl64/site/lib/load.pm : 462: my $file = _filename( $module )
>> [0] C:/Perl64/site/lib/load.pm : 405: (my $key = $_[0]) =~ s#::#/#g;
>> [0] C:/Perl64/site/lib/load.pm : 406: my $filename = $INC{"$key.pm"};
>> [0] C:/Perl64/site/lib/load.pm : 407: return $filename unless ref $filename;
>> [0] C:/Perl64/site/lib/load.pm : 464: open( VERSION,"<$file" ) # use VERSION glob to conserve memory
>> [0] C:/Perl64/site/lib/load.pm : 466: binmode VERSION # needed for Windows systems, apparently
>> [0] C:/Perl64/site/lib/load.pm : 468: seek( VERSION,$start,0 )
>> [0] C:/Perl64/site/lib/load.pm : 474: _trace( "ondemand ${module}::$sub, line $subline (offset $start, $length bytes)" ) if TRACE;
>> [0] C:/Perl64/site/lib/load.pm : 475: my $use = $use{$module} || '';
>> [0] C:/Perl64/site/lib/load.pm : 476: my $source = <> [0] C:/Perl64/site/lib/load.pm : 486: my $read = read( VERSION,$source,$length,length($source) );
>> [0] C:/Perl64/site/lib/load.pm : 487: die "Error reading source: only read $read bytes instead of $length"
>> [0] C:/Perl64/site/lib/load.pm : 489: close VERSION;
>> [0] C:/Perl64/site/lib/load.pm : 498: &ifdef::reset if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 499: my $original = $source;
>> [0] C:/Perl64/site/lib/load.pm : 500: $source =~ m#^(.*)$#s; $source = IFDEF ? ifdef::process( $1 ) : $1;
>> [0] C:/Perl64/site/lib/load.pm : 500: $source =~ m#^(.*)$#s; $source = IFDEF ? ifdef::process( $1 ) : $1;
>> [0] C:/Perl64/site/lib/load.pm : 501: eval $source;
>> [0] (eval 29)[C:/Perl64/site/lib/load.pm:501]: 2: no warnings;
>> [0] (eval 29)[C:/Perl64/site/lib/load.pm:501]: 2: no warnings;
>> [0] (eval 29)[C:/Perl64/site/lib/load.pm:501]: 2: no warnings;
>> [0] C:/Perl64/lib/warnings.pm : 377: shift;
>> [0] C:/Perl64/lib/warnings.pm : 379: my $catmask ;
>> [0] C:/Perl64/lib/warnings.pm : 380: my $mask = ${^WARNING_BITS} ;
>> [0] C:/Perl64/lib/warnings.pm : 382: if (vec($mask, $Offsets{'all'}, 1)) {
>> [0] C:/Perl64/lib/warnings.pm : 383: $mask |= $Bits{'all'} ;
>> [0] C:/Perl64/lib/warnings.pm : 384: $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
>> [0] C:/Perl64/lib/warnings.pm : 387: push @_, 'all' unless @_;
>> [0] C:/Perl64/lib/warnings.pm : 389: foreach my $word ( @_ ) {
>> [0] C:/Perl64/lib/warnings.pm : 390: if ($word eq 'FATAL') {
>> [0] C:/Perl64/lib/warnings.pm : 394: $mask &= ~($catmask | $DeadBits{$word} | $All);
>> [0] C:/Perl64/lib/warnings.pm : 400: ${^WARNING_BITS} = $mask ;
>> [0] C:/Perl64/site/lib/load.pm : 502: die "load: $@\n$original====================\n$source" if $@;
>> [0] C:/Perl64/site/lib/load.pm : 503: delete $load::AUTOLOAD{$module,$sub};
>> [0] C:/Perl64/site/lib/load.pm : 504: return \&{$module.'::'.$sub};
>> [0] C:/Perl64/site/lib/load.pm : 504: return \&{$module.'::'.$sub};
>> [0] C:/Perl64/site/lib/load.pm : 222: goto &{$load::AUTOLOAD} if _can( $1,$2 );
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 45: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 46: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 51: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 52: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 58: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 59: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 67: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 68: ???
>> [0] C:/Perl64/lib/attributes.pm : 32: @_ > 2 && ref $_[2] or do {
>> [0] C:/Perl64/lib/attributes.pm : 36: my (undef,$home_stash,$svref,@attrs) = @_;
>> [0] C:/Perl64/lib/attributes.pm : 38: my $svtype = uc reftype($svref);
>> [0] C:/Perl64/lib/attributes.pm : 39: my $pkgmeth;
>> [0] C:/Perl64/lib/attributes.pm : 40: $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES")
>> [0] C:/Perl64/site/lib/load.pm : 66: &{$can}( @_ ) || (ref( $_[0] ) ? undef : _can( @_ ))
>> [0] C:/Perl64/site/lib/load.pm : 66: &{$can}( @_ ) || (ref( $_[0] ) ? undef : _can( @_ ))
>> [0] C:/Perl64/site/lib/load.pm : 443: my ($module,$sub) = @_;
>> [0] C:/Perl64/site/lib/load.pm : 444: return if $module eq 'main';
>> [0] C:/Perl64/site/lib/load.pm : 450: _scan( $module ) unless exists $load::AUTOLOAD{$module};
>> [0] C:/Perl64/site/lib/load.pm : 451: my ($subline,$start,$length) =
>> [0] C:/Perl64/site/lib/load.pm : 453: return unless $start;
>> [0] C:/Perl64/lib/attributes.pm : 42: my @badattrs;
>> [0] C:/Perl64/lib/attributes.pm : 43: if ($pkgmeth) {
>> [0] C:/Perl64/lib/attributes.pm : 62: @badattrs = _modify_attrs($svref, @attrs);
>> [0] C:/Perl64/lib/attributes.pm : 64: if (@badattrs) {
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 69: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 858 for 1208 bytes): 70: ???
>> [0] C:/Perl64/site/lib/load.pm : 221: $load::AUTOLOAD =~ m#^(.*)::(.*?)$#;
>> [0] C:/Perl64/site/lib/load.pm : 222: goto &{$load::AUTOLOAD} if _can( $1,$2 );
>> [0] C:/Perl64/site/lib/load.pm : 443: my ($module,$sub) = @_;
>> [0] C:/Perl64/site/lib/load.pm : 444: return if $module eq 'main';
>> [0] C:/Perl64/site/lib/load.pm : 450: _scan( $module ) unless exists $load::AUTOLOAD{$module};
>> [0] C:/Perl64/site/lib/load.pm : 451: my ($subline,$start,$length) =
>> [0] C:/Perl64/site/lib/load.pm : 453: return unless $start;
>> [0] C:/Perl64/site/lib/load.pm : 461: local( $!,$@ );
>> [0] C:/Perl64/site/lib/load.pm : 462: my $file = _filename( $module )
>> [0] C:/Perl64/site/lib/load.pm : 405: (my $key = $_[0]) =~ s#::#/#g;
>> [0] C:/Perl64/site/lib/load.pm : 406: my $filename = $INC{"$key.pm"};
>> [0] C:/Perl64/site/lib/load.pm : 407: return $filename unless ref $filename;
>> [0] C:/Perl64/site/lib/load.pm : 464: open( VERSION,"<$file" ) # use VERSION glob to conserve memory
>> [0] C:/Perl64/site/lib/load.pm : 466: binmode VERSION # needed for Windows systems, apparently
>> [0] C:/Perl64/site/lib/load.pm : 468: seek( VERSION,$start,0 )
>> [0] C:/Perl64/site/lib/load.pm : 474: _trace( "ondemand ${module}::$sub, line $subline (offset $start, $length bytes)" ) if TRACE;
>> [0] C:/Perl64/site/lib/load.pm : 475: my $use = $use{$module} || '';
>> [0] C:/Perl64/site/lib/load.pm : 476: my $source = <> [0] C:/Perl64/site/lib/load.pm : 486: my $read = read( VERSION,$source,$length,length($source) );
>> [0] C:/Perl64/site/lib/load.pm : 487: die "Error reading source: only read $read bytes instead of $length"
>> [0] C:/Perl64/site/lib/load.pm : 489: close VERSION;
>> [0] C:/Perl64/site/lib/load.pm : 498: &ifdef::reset if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 499: my $original = $source;
>> [0] C:/Perl64/site/lib/load.pm : 500: $source =~ m#^(.*)$#s; $source = IFDEF ? ifdef::process( $1 ) : $1;
>> [0] C:/Perl64/site/lib/load.pm : 500: $source =~ m#^(.*)$#s; $source = IFDEF ? ifdef::process( $1 ) : $1;
>> [0] C:/Perl64/site/lib/load.pm : 501: eval $source;
>> [0] (eval 30)[C:/Perl64/site/lib/load.pm:501]: 2: no warnings;
>> [0] (eval 30)[C:/Perl64/site/lib/load.pm:501]: 2: no warnings;
>> [0] (eval 30)[C:/Perl64/site/lib/load.pm:501]: 2: no warnings;
>> [0] C:/Perl64/lib/warnings.pm : 377: shift;
>> [0] C:/Perl64/lib/warnings.pm : 379: my $catmask ;
>> [0] C:/Perl64/lib/warnings.pm : 380: my $mask = ${^WARNING_BITS} ;
>> [0] C:/Perl64/lib/warnings.pm : 382: if (vec($mask, $Offsets{'all'}, 1)) {
>> [0] C:/Perl64/lib/warnings.pm : 383: $mask |= $Bits{'all'} ;
>> [0] C:/Perl64/lib/warnings.pm : 384: $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
>> [0] C:/Perl64/lib/warnings.pm : 387: push @_, 'all' unless @_;
>> [0] C:/Perl64/lib/warnings.pm : 389: foreach my $word ( @_ ) {
>> [0] C:/Perl64/lib/warnings.pm : 390: if ($word eq 'FATAL') {
>> [0] C:/Perl64/lib/warnings.pm : 394: $mask &= ~($catmask | $DeadBits{$word} | $All);
>> [0] C:/Perl64/lib/warnings.pm : 400: ${^WARNING_BITS} = $mask ;
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 109: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 109: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 109: ???
>> [0] C:/Perl64/lib/strict.pm : 40: shift;
>> [0] C:/Perl64/lib/strict.pm : 41: $^H &= ~ (@_ ? bits(@_) : $default_bits);
>> [0] C:/Perl64/lib/strict.pm : 19: my $bits = 0;
>> [0] C:/Perl64/lib/strict.pm : 20: my @wrong;
>> [0] C:/Perl64/lib/strict.pm : 21: foreach my $s (@_) {
>> [0] C:/Perl64/lib/strict.pm : 22: push @wrong, $s unless exists $bitmask{$s};
>> [0] C:/Perl64/lib/strict.pm : 23: $bits |= $bitmask{$s} || 0;
>> [0] C:/Perl64/lib/strict.pm : 25: if (@wrong) {
>> [0] C:/Perl64/lib/strict.pm : 29: $bits;
>> [0] C:/Perl64/site/lib/load.pm : 502: die "load: $@\n$original====================\n$source" if $@;
>> [0] C:/Perl64/site/lib/load.pm : 503: delete $load::AUTOLOAD{$module,$sub};
>> [0] C:/Perl64/site/lib/load.pm : 504: return \&{$module.'::'.$sub};
>> [0] C:/Perl64/site/lib/load.pm : 504: return \&{$module.'::'.$sub};
>> [0] C:/Perl64/site/lib/load.pm : 222: goto &{$load::AUTOLOAD} if _can( $1,$2 );
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 106: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 107: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 108: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 110: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor.pm (loaded on demand from offset 2534 for 462 bytes): 110: ???
>> [0] C:/Perl64/site/lib/Thread/Conveyor/Throttled.pm: 9: use strict;
>> [0] C:/Perl64/site/lib/Thread/Conveyor/Throttled.pm: 9: use strict;
>> [0] C:/Perl64/site/lib/Thread/Conveyor/Throttled.pm: 9: use strict;
>> [0] C:/Perl64/lib/strict.pm : 35: shift;
>> [0] C:/Perl64/lib/strict.pm : 36: $^H |= @_ ? bits(@_) : $default_bits;
>> [0] C:/Perl64/site/lib/Thread/Conveyor/Throttled.pm: 13: use load;
>> [0] C:/Perl64/site/lib/Thread/Conveyor/Throttled.pm: 13: use load;
>> [0] C:/Perl64/site/lib/Thread/Conveyor/Throttled.pm: 13: use load;
>> [0] C:/Perl64/site/lib/load.pm : 103: my $class = shift;
>> [0] C:/Perl64/site/lib/load.pm : 104: my ($module,undef,$lineno) = caller();
>> [0] C:/Perl64/site/lib/load.pm : 111: if (@_) {
>> [0] C:/Perl64/site/lib/load.pm : 206: _scan( $module );
>> [0] C:/Perl64/site/lib/load.pm : 248: my $module = shift;
>> [0] C:/Perl64/site/lib/load.pm : 249: my $loadnow = defined( $_[0] ) ? shift : $now;
>> [0] C:/Perl64/site/lib/load.pm : 250: local $_ = \my $foo;
>> [0] C:/Perl64/site/lib/load.pm : 251: local( $!,$@ );
>> [0] C:/Perl64/site/lib/load.pm : 257: my $file = _filename( $module )
>> [0] C:/Perl64/site/lib/load.pm : 405: (my $key = $_[0]) =~ s#::#/#g;
>> [0] C:/Perl64/site/lib/load.pm : 406: my $filename = $INC{"$key.pm"};
>> [0] C:/Perl64/site/lib/load.pm : 407: return $filename unless ref $filename;
>> [0] C:/Perl64/site/lib/load.pm : 259: open( VERSION,"<$file" ) # use VERSION as glob to save memory
>> [0] C:/Perl64/site/lib/load.pm : 261: binmode VERSION # needed for Windows systems, apparently
>> [0] C:/Perl64/site/lib/load.pm : 269: my $line = 0;
>> [0] C:/Perl64/site/lib/load.pm : 270: my $pod = 0;
>> [0] C:/Perl64/site/lib/load.pm : 271: my $package = '';
>> [0] C:/Perl64/site/lib/load.pm : 272: &ifdef::reset if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 284: while () {
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 291: die "Found package '$1' after '$package'" if $package;
>> [0] C:/Perl64/site/lib/load.pm : 292: $package = $1;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 290: next unless m#^package\s+([\w:]+)\s*;#;
>> [0] C:/Perl64/site/lib/load.pm : 285: &ifdef::oneline if IFDEF; # should get optimized away if not needed
>> [0] C:/Perl64/site/lib/load.pm : 286: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 287: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 288: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 289: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 298: die "Could not find package name" unless $package;
>> [0] C:/Perl64/site/lib/load.pm : 299: die "Found package $package inside '$file'" if $package ne $module;
>> [0] C:/Perl64/site/lib/load.pm : 304: my $endline = $line+1;
>> [0] C:/Perl64/site/lib/load.pm : 305: my $endstart = tell VERSION;
>> [0] C:/Perl64/site/lib/load.pm : 310: if ($loadnow) {
>> [0] C:/Perl64/site/lib/load.pm : 335: my $start;
>> [0] C:/Perl64/site/lib/load.pm : 336: my $sub = '';
>> [0] C:/Perl64/site/lib/load.pm : 337: my $subline;
>> [0] C:/Perl64/site/lib/load.pm : 338: my $length;
>> [0] C:/Perl64/site/lib/load.pm : 348: while () {
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 371: my $seek = tell( VERSION ) - (IFDEF ? $length : length);
>> [0] C:/Perl64/site/lib/load.pm : 372: _store( $module,$sub,$subline,$start,$seek-$start ) if $sub;
>> [0] C:/Perl64/site/lib/load.pm : 373: $sub = $1;
>> [0] C:/Perl64/site/lib/load.pm : 374: die "Cannot handle fully qualified subroutine '$sub'\n"
>> [0] C:/Perl64/site/lib/load.pm : 376: $subline = $line;
>> [0] C:/Perl64/site/lib/load.pm : 377: $start = $seek;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 371: my $seek = tell( VERSION ) - (IFDEF ? $length : length);
>> [0] C:/Perl64/site/lib/load.pm : 372: _store( $module,$sub,$subline,$start,$seek-$start ) if $sub;
>> [0] C:/Perl64/site/lib/load.pm : 426: _trace( "store $_[0]::$_[1], line $_[2] (offset $_[3], $_[4] bytes)" )
>> [0] C:/Perl64/site/lib/load.pm : 428: eval "package $_[0]; sub $_[1]";
>> [0] C:/Perl64/site/lib/load.pm : 429: die "Could not create stub: $@\n" if $@;
>> [0] C:/Perl64/site/lib/load.pm : 430: $load::AUTOLOAD{$_[0],$_[1]} = pack( 'L3',$_[2],$_[3],$_[4] )
>> [0] C:/Perl64/site/lib/load.pm : 373: $sub = $1;
>> [0] C:/Perl64/site/lib/load.pm : 374: die "Cannot handle fully qualified subroutine '$sub'\n"
>> [0] C:/Perl64/site/lib/load.pm : 376: $subline = $line;
>> [0] C:/Perl64/site/lib/load.pm : 377: $start = $seek;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 371: my $seek = tell( VERSION ) - (IFDEF ? $length : length);
>> [0] C:/Perl64/site/lib/load.pm : 372: _store( $module,$sub,$subline,$start,$seek-$start ) if $sub;
>> [0] C:/Perl64/site/lib/load.pm : 426: _trace( "store $_[0]::$_[1], line $_[2] (offset $_[3], $_[4] bytes)" )
>> [0] C:/Perl64/site/lib/load.pm : 428: eval "package $_[0]; sub $_[1]";
>> [0] C:/Perl64/site/lib/load.pm : 429: die "Could not create stub: $@\n" if $@;
>> [0] C:/Perl64/site/lib/load.pm : 430: $load::AUTOLOAD{$_[0],$_[1]} = pack( 'L3',$_[2],$_[3],$_[4] )
>> [0] C:/Perl64/site/lib/load.pm : 373: $sub = $1;
>> [0] C:/Perl64/site/lib/load.pm : 374: die "Cannot handle fully qualified subroutine '$sub'\n"
>> [0] C:/Perl64/site/lib/load.pm : 376: $subline = $line;
>> [0] C:/Perl64/site/lib/load.pm : 377: $start = $seek;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
>> [0] C:/Perl64/site/lib/load.pm : 354: last if m#^__END__#;
>> [0] C:/Perl64/site/lib/load.pm : 359: die "Only one package per file: found '$1' after '$package'"
>> [0] C:/Perl64/site/lib/load.pm : 361: next unless m#^sub\s+([\w:]+)#;
>> [0] C:/Perl64/site/lib/load.pm : 349: $length = length if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 350: &ifdef::oneline if IFDEF;
>> [0] C:/Perl64/site/lib/load.pm : 351: $line++;
>> [0] C:/Perl64/site/lib/load.pm : 352: $pod = !m#^=cut#, next if m#^=\w#;
>> [0] C:/Perl64/site/lib/load.pm : 353: next if $pod or m#^\s*\##;
...