Unicode data updated to be the latest beta of the Unicode 3.0.

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index 762be7b..132ec5e 100644 (file)
--- a/util.c
+++ b/util.c
@@ -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