diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-02 12:53:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-02 12:53:10 +0000 |
| commit | b9c39e7333cadd99fd23059be7fbd6399d58fec4 (patch) | |
| tree | fc5db9dccbd5d20e638897557dd001ec78ced868 /util.c | |
| parent | 88c07c3641c0fb59ded524dfdcea26f44c3acd38 (diff) | |
| download | perl-b9c39e7333cadd99fd23059be7fbd6399d58fec4.tar.gz | |
Fix some of the {IV_IS_QUAD,UV_IS_QUAD} cases so that
emacs code indentation doesn't get wrong ideas--
in other words, introduce a couple of "redundant" if:s.
p4raw-id: //depot/cfgperl@3887
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1405,11 +1405,12 @@ Perl_mess(pTHX_ const char *pat, va_list *args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)); if (!SvCUR(sv) || *(SvEND(sv) - 1) != '\n') { dTHR; - if (PL_curcop->cop_line) #ifdef IV_IS_QUAD + if (PL_curcop->cop_line) Perl_sv_catpvf(aTHX_ sv, " at %_ line %" PERL_PRId64, GvSV(PL_curcop->cop_filegv), (IV)PL_curcop->cop_line); #else + if (PL_curcop->cop_line) Perl_sv_catpvf(aTHX_ sv, " at %_ line %ld", GvSV(PL_curcop->cop_filegv), (long)PL_curcop->cop_line); #endif |