From e749b684e7525fc076ff2094228a2feae0d36d49 Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Sat, 19 Feb 2011 16:36:43 +0100 Subject: [PATCH] Make PushXSStack a method --- dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 1597a3b..a7f7198 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -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} }; -- 1.8.3.1