Select Code to Download

Note that if you take a copy of a scalar with a weakened reference, th
+e copy will be a strong reference.

    my $var;
    my $foo = \$var;
    weaken($foo);                       # Make $foo a weak reference
    my $bar = $foo;                     # $bar is now a strong referen
+ce

/usr/bin/perl
use strict;
...
        weaken($$arg = $foo);
        return;
}

returnweak isweak - no - 'HASH(0x606df0)'
weakenbyref isweak - yes - 'HASH(0x606df0)'