Use lower case method name for current_line_number

My fault for botching this up originally, sorry.

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index b0e0944..93c1976 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -24,7 +24,7 @@ use ExtUtils::ParseXS::Utilities qw(
   analyze_preprocessor_statements
   set_cond
   Warn
-  CurrentLineNumber
+  current_line_number
   blurt
   death
   check_conditional_preprocessor_statements
@@ -1668,7 +1668,7 @@ sub fetch_para {
       my $tmapcode = join "", @tmaplines;
       my $tmap = ExtUtils::Typemaps->new(
         string => $tmapcode,
-        lineno_offset => $self->CurrentLineNumber()+1,
+        lineno_offset => $self->current_line_number()+1,
         fake_filename => $self->{filename},
       );
       $self->{typemap}->merge(typemap => $tmap, replace => 1);

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm
index 48f567c..1616b0d 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm
@@ -22,7 +22,7 @@ our (@ISA, @EXPORT_OK);
   analyze_preprocessor_statements
   set_cond
   Warn
-  CurrentLineNumber
+  current_line_number
   blurt
   death
   check_conditional_preprocessor_statements
@@ -629,7 +629,7 @@ sub set_cond {
   return $cond;
 }
 
-=head2 C<CurrentLineNumber()>
+=head2 C<current_line_number()>
 
 =over 4
 
@@ -649,7 +649,7 @@ The current line number.
 
 =cut
 
-sub CurrentLineNumber {
+sub current_line_number {
   my $self = shift;
   my $line_number = $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1];
   return $line_number;
@@ -671,7 +671,7 @@ sub CurrentLineNumber {
 
 sub Warn {
   my $self = shift;
-  my $warn_line_number = $self->CurrentLineNumber();
+  my $warn_line_number = $self->current_line_number();
   print STDERR "@_ in $self->{filename}, line $warn_line_number\n";
 }