My fault for botching this up originally, sorry.
analyze_preprocessor_statements
set_cond
Warn
- CurrentLineNumber
+ current_line_number
blurt
death
check_conditional_preprocessor_statements
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);
analyze_preprocessor_statements
set_cond
Warn
- CurrentLineNumber
+ current_line_number
blurt
death
check_conditional_preprocessor_statements
return $cond;
}
-=head2 C<CurrentLineNumber()>
+=head2 C<current_line_number()>
=over 4
=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;
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";
}