http://www.perlmonks.org?node_id=522419


in reply to Difference between 'use warnings' and '-w' switch

this is the full line from that module: 
my $size = do { local $^W; -f $local && -s _ };

[download]

note, he locally turns off the warnings , (old style -w/$^W warnings);


This is not a Signature...

Replies are listed 'Best First'.
Re^2: Difference between 'use warnings' and '-w' switch
by muntfish (Chaplain) on Jan 11, 2006 at 13:02 UTC

    Thanks - actually the line in my version (2.70) is:

    $ftp->_ALLO(-s _) if -f $loc;

    [download]

    And since there is no code to initialise $loc before this line, it will always produce a warning. It looks like this has been fixed in later versions (I checked 2.75 from CPAN) - it has been changed to the line you describe (note $local not $loc).

    Thanks.

    s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom