This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make PushXSStack a method
authorSteffen Mueller <smueller@cpan.org>
Sat, 19 Feb 2011 15:36:43 +0000 (16:36 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:50 +0000 (20:54 +0200)
dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

index 1597a3b..a7f7198 100644 (file)
@@ -1380,6 +1380,7 @@ sub PROTOTYPES_handler () {
 }
 
 sub PushXSStack {
+  my $self = shift;
   my %args = @_;
   # Save the current file context.
   push(@{ $self->{XSStack} }, {
@@ -1423,7 +1424,7 @@ sub INCLUDE_handler () {
           " 'perldoc perlxs' for details.");
   }
 
-  PushXSStack();
+  $self->PushXSStack();
 
   $FH = Symbol::gensym();
 
@@ -1474,7 +1475,7 @@ sub INCLUDE_COMMAND_handler () {
   death( $self, "INCLUDE_COMMAND: pipes are illegal")
     if /^\s*\|/ or /\|\s*$/;
 
-  PushXSStack( IsPipe => 1 );
+  $self->PushXSStack( IsPipe => 1 );
 
   $FH = Symbol::gensym();
 
@@ -1508,7 +1509,7 @@ EOF
   $self->{lastline_no} = $.;
 }
 
-sub PopFile() {
+sub PopFile {
   return 0 unless $self->{XSStack}->[-1]{type} eq 'file';
 
   my $data     = pop @{ $self->{XSStack} };