Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^3: if(my) scope

by gwadej (Chaplain)
on Apr 16, 2009 at 17:05 UTC ( [id://758027]=note: print w/replies, xml ) Need Help??


in reply to Re^2: if(my) scope
in thread if(my) scope

Expanding a bit further.

That comment only applies to mark-and-sweep type garbage collection. As a general rule, Perl's reference-counted garbage collection is deterministic and mostly handles as you would expect. (Present case excepted, of course.)

Personally, I regret the loss of a defined, consistent object lifetime caused by using mark-and-sweep. Having the lifetime of a object determine the timing of events is quite useful. It's one of the reasons I prefer Perl and C++ to Java.

G. Wade

Replies are listed 'Best First'.
Re^4: if(my) scope
by ig (Vicar) on Apr 16, 2009 at 22:23 UTC

    case in point:

    package H;
sub DESTROY { print "DESTROY\n"; }

sub new { my $class = shift; bless {}, $class; }

{
    if(my $h = H->new()) {
        print "IN\n";
        undef $h;
    }
    print "\$h out of scope\n";
}
print "why now?\n";

    [download]

    produces:

    IN
DESTROY
$h out of scope
why now?

    [download]

    As does:

    package H;
sub DESTROY { print "DESTROY\n"; }

sub new { my $class = shift; bless {}, $class; }

{
    {
        if(my $h = H->new()) {
            print "IN\n";
        }
    }
    print "\$h out of scope\n";
}
print "why now?\n";

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://758027]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2024-04-19 01:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found