diff options
| author | Steffen Mueller <smueller@cpan.org> | 2011-12-13 18:21:52 +0100 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2011-12-13 22:58:25 +0100 |
| commit | f3009090e2221f5ef4771f16c8cfafd93bc68be5 (patch) | |
| tree | 6515f96ce3497676a71aa304930514a7d7bf59a2 /dist | |
| parent | 1d8dd5fc7934354cd821bd5d91a0e1e468c16490 (diff) | |
| download | perl-f3009090e2221f5ef4771f16c8cfafd93bc68be5.tar.gz | |
EU::ParseXS: Silence undefined-value-in-addition warning
Nothing serious, just happened sometimes when reporting line numbers for
errors. But warning during build process.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm index 77b09782f0..f97f7c059e 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm @@ -1718,7 +1718,7 @@ sub fetch_para { my $tmapcode = join "", @tmaplines; my $tmap = ExtUtils::Typemaps->new( string => $tmapcode, - lineno_offset => $self->current_line_number()+1, + lineno_offset => ($self->current_line_number()||0)+1, fake_filename => $self->{filename}, ); $self->{typemap}->merge(typemap => $tmap, replace => 1); |