This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Lose $Fallback global
authorSteffen Mueller <smueller@cpan.org>
Sun, 17 Apr 2011 11:37:27 +0000 (13:37 +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 0489921..b0e0944 100644 (file)
@@ -86,7 +86,7 @@ sub process_file {
   $self->{InitFileCode} = [ @ExtUtils::ParseXS::Constants::InitFileCode ];
   $self->{Overload}     = 0;
   $self->{errors}       = 0;
-  $self->{Fallback}     = $ExtUtils::ParseXS::Constants::Fallback;
+  $self->{Fallback}     = '&PL_sv_undef';
 
   # Most of the 1500 lines below uses these globals.  We'll have to
   # clean this up sometime, probably.  For now, we just pull them out
index d9de913..69eba9d 100644 (file)
@@ -25,7 +25,6 @@ Nothing is exported.  Use fully qualified variable names.
 
 # FIXME: THESE ARE NOT CONSTANTS!
 our @InitFileCode;
-our $Fallback        = '&PL_sv_undef'; # FIXME Check: Is this a constant?
 
 # Note that to reduce maintenance, $PrototypeRegexp is used
 # by ExtUtils::Typemaps, too!