Public Scratchpad | Download, Select Code To D/L |
Changed these lines in Lint.pm
and got this result:eval{ $sv->FLAGS & SVf_POK && exists &{$curstash.'::'.$sv->PV} ; warning "Bare sub name '" . $sv->PV . "' interpreted as string +"; }; warn join(", ", @_) if @_; if( $sv->FLAGS & SVf_POK && exists &{$curstash.'::'.$sv->PV} ) { warning "Bare sub name '" . $sv->PV . "' interpreted as string +"; }
3 at c:/PERL/lib/B/Lint.pm line 260. Can't locate object method "FLAGS" via package "B::SPECIAL" at c:/PERL +/lib/B/Lint.pm line 261.
On the Evolution of Languages
swampyankee