Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

swampyankee's scratchpad

by swampyankee (Parson)
on Oct 04, 2005 at 02:08 UTC ( #497112=scratchpad: print w/replies, xml ) Need Help??

Changed these lines in
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 +"; }
and got this result:
3 at c:/PERL/lib/B/ line 260. Can't locate object method "FLAGS" via package "B::SPECIAL" at c:/PERL +/lib/B/ line 261.

On the Evolution of Languages
Log In?

What's my password?
Create A New User
[Corion]: marto: Great! The German Perl Workshop was a success even though things looked dire before, and I'm now back at home with two days off work still to go ;)
[Corion]: I hope things have settled down a bit for you and the boys are alright?!

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2017-06-29 08:04 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (655 votes). Check out past polls.