Remove superfluous global "$errors"

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 510a695..1b46bd4 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -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

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
index f5608ed..f45fe38 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Constants.pm
@@ -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