This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Lose the $Overload global
authorSteffen Mueller <smueller@cpan.org>
Sun, 17 Apr 2011 11:36:22 +0000 (13:36 +0200)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:51 +0000 (20:54 +0200)
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm

index 1b46bd4..0489921 100644 (file)
@@ -84,7 +84,7 @@ sub process_file {
   }
   @{ $self->{XSStack} } = ({type => 'none'});
   $self->{InitFileCode} = [ @ExtUtils::ParseXS::Constants::InitFileCode ];
-  $self->{Overload}     = $ExtUtils::ParseXS::Constants::Overload;
+  $self->{Overload}     = 0;
   $self->{errors}       = 0;
   $self->{Fallback}     = $ExtUtils::ParseXS::Constants::Fallback;
 
index f45fe38..d9de913 100644 (file)
@@ -25,7 +25,6 @@ Nothing is exported.  Use fully qualified variable names.
 
 # FIXME: THESE ARE NOT CONSTANTS!
 our @InitFileCode;
-our $Overload        = 0;
 our $Fallback        = '&PL_sv_undef'; # FIXME Check: Is this a constant?
 
 # Note that to reduce maintenance, $PrototypeRegexp is used