Very interesting. I created the following package:

package Scrap::Foo;
use strict;

sub bar {
    my $dummy;
    $dummy->{_init}->{__PACKAGE__}++;
    return $dummy;
}
1
[download]

And my test code:

use strict;
use Scrap::Foo;
use Data::Dumper;
my $dummy = Scrap::Foo::bar();
print Dumper $dummy;
[download]

Generated this output:

$VAR1 = {
          '_init' => {
                       '__PACKAGE__' => '1'
                     }
        };
[download]

And the fix:

my $package = __PACKAGE__;
$dummy->{_init}->{$package}++;
[download]

Thanks for the info. Now who wants to tell Damian? :)

Cheers,
Ovid

Update: japhy's unary fix is not only shorter, but it should be faster as it doesn't involve creating a variable for no other reason than throwing it away.

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.