This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Bless singleton
authorSteffen Mueller <smueller@cpan.org>
Fri, 11 Feb 2011 17:42:53 +0000 (18:42 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:49 +0000 (20:54 +0200)
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

index 38b41cc..a11c03e 100644 (file)
@@ -44,7 +44,7 @@ our (
   $FH, $Package, $func_name, $Full_func_name, $pname, $ALIAS,
 );
 
-our $self = {};
+our $self = bless {} => __PACKAGE__;
 
 sub process_file {