This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make get_alias (nee GetAlias) a method
authorSteffen Mueller <smueller@cpan.org>
Sat, 19 Feb 2011 15:55:34 +0000 (16:55 +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 a8cd719..d8752d5 100644 (file)
@@ -1240,7 +1240,8 @@ sub INIT_handler {
   $self->print_section();
 }
 
-sub GetAliases {
+sub get_aliases {
+  my $self = shift;
   my ($line) = @_;
   my ($orig) = $line;
 
@@ -1289,7 +1290,7 @@ sub ALIAS_handler {
   for (;  !/^$self->{BLOCK_re}/o;  $_ = shift(@{ $self->{line} })) {
     next unless /\S/;
     trim_whitespace($_);
-    GetAliases($_) if $_;
+    $self->get_aliases($_) if $_;
   }
 }