Remove superfluous global "$errors"
authorSteffen Mueller <smueller@cpan.org>
Sun, 17 Apr 2011 11:18:13 +0000 (13:18 +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 510a695..1b46bd4 100644 (file)
@@ -85,7 +85,7 @@ sub process_file {
   @{ $self->{XSStack} } = ({type => 'none'});
   $self->{InitFileCode} = [ @ExtUtils::ParseXS::Constants::InitFileCode ];
   $self->{Overload}     = $ExtUtils::ParseXS::Constants::Overload;
-  $self->{errors}       = $ExtUtils::ParseXS::Constants::errors;
+  $self->{errors}       = 0;
   $self->{Fallback}     = $ExtUtils::ParseXS::Constants::Fallback;
 
   # Most of the 1500 lines below uses these globals.  We'll have to
index f5608ed..f45fe38 100644 (file)
@@ -26,8 +26,6 @@ Nothing is exported.  Use fully qualified variable names.
 # FIXME: THESE ARE NOT CONSTANTS!
 our @InitFileCode;
 our $Overload        = 0;
-our $errors          = 0;
-
 our $Fallback        = '&PL_sv_undef'; # FIXME Check: Is this a constant?
 
 # Note that to reduce maintenance, $PrototypeRegexp is used