VMS tweak (suggested by Craig A. Berry <craig.berry@metamor.com>)

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index 0a7d95c..30de6af 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1607,7 +1607,7 @@ Perl_sv_2uv(pTHX_ register SV *sv)
            SvIVX(sv) = I_V(SvNVX(sv));
          ret_zero:
            DEBUG_c(PerlIO_printf(Perl_debug_log, 
-                                 "0x%"UVxf" 2uv(%"IVdf" => %"UVdf") (as signed)\n",
+                                 "0x%"UVxf" 2uv(%"IVdf" => %"IVdf") (as signed)\n",
                                  PTR2UV(sv),
                                  SvIVX(sv),
                                  (IV)(UV)SvIVX(sv)));
@@ -5139,6 +5139,13 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
        /* SIZE */
 
        switch (*q) {
+#ifdef HAS_QUAD
+       case 'L':                       /* Ld */
+       case 'q':                       /* qd */
+           intsize = 'q';
+           q++;
+           break;
+#endif
        case 'l':
 #ifdef HAS_QUAD
              if (*(q + 1) == 'l') {    /* lld */
@@ -5146,12 +5153,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
                q += 2;
                break;
             }
-       case 'L':                       /* Ld */
-       case 'q':                       /* qd */
-           intsize = 'q';
-           q++;
-           break;
 #endif
+           /* FALL THROUGH */
        case 'h':
            /* FALL THROUGH */
        case 'V':
@@ -5611,8 +5614,7 @@ static void
 do_report_used(pTHXo_ SV *sv)
 {
     if (SvTYPE(sv) != SVTYPEMASK) {
-       /* XXX Perhaps this ought to go to Perl_debug_log, if DEBUGGING. */
-       PerlIO_printf(PerlIO_stderr(), "****\n");
+       PerlIO_printf(Perl_debug_log, "****\n");
        sv_dump(sv);
     }
 }