Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

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
[karlgoethebier]: perldigious: perhaps a block if you are paranoid ;-)
[choroba]: but undef %hash and %hash = () both work, too, but the first one keeps the memory allocated, while the latter makes it available for other parts of the program.
[choroba]: iirc
[perldigious]: karlgoethebier: Well it is a pretty old and complicated (for me) bit of code I wrote (poorly by my current standards), so I'm expecting everything to break when I add the scoping and find out what else is undesireably scope changed. :-)
[perldigious]: Ah, thanks choroba, that sort of thing was precisely what I was wondering when I asked.
[perldigious]: I didn't want to tie up memory unecessarily basically, I wanted to "delete" it specifically to free it up, and wasn't sure I was even accomplishing that.

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2017-07-21 19:53 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (335 votes). Check out past polls.