#! 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*\##; ...