Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Bad return value from a block with variable localization

by codeacrobat (Chaplain)
on Apr 10, 2006 at 11:41 UTC ( #542260=note: print w/replies, xml ) Need Help??


in reply to Bad return value from a block with variable localization

It also helps to actually "return 1;" instead of just "1;" In general use the short form only when you are really at the end of a subroutine. do blocks are not really subroutines.
#!/usr/bin/perl use strict; use warnings; # let's just remove the else sub foo { if (@_) { return do { my $dummy; return 1; }; } 0; } sub bar { if (@_) { return do { my $dummy; return 1; }; } else { 0; } } print foo() . ' ' . foo('baz') . "\n"; # 1 0 print bar() . ' ' . bar('baz') . "\n"; # also 1 0
Update:
I noticed that the above script is bad style for a direct return from the subroutine. You should use eval instead of do. See the example below.
#!/usr/bin/perl use strict; use warnings; # let's just remove the else sub foo { if (@_) { return 10 + do { my $dummy; return 1; }; } 0; } sub bar { if (@_) { return 10 + eval { my $dummy; return 1; }; } 0; } print foo() . ' ' . foo('baz') . "\n"; # 1 0 print bar() . ' ' . bar('baz') . "\n"; # 11 0

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://542260]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2019-12-14 02:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?