This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate with Sarathy.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 13 Sep 1999 16:00:08 +0000 (16:00 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 13 Sep 1999 16:00:08 +0000 (16:00 +0000)
p4raw-id: //depot/cfgperl@4140

1  2 
perlapi.c
pod/perldelta.pod
pod/perldiag.pod
pp_hot.c
sv.c

diff --cc perlapi.c
index f04706c,ed7ab92..ed7ab92
mode 100755,100644..100755
+++ b/perlapi.c
Simple merge
Simple merge
diff --cc pp_hot.c
Simple merge
diff --cc sv.c
--- 1/sv.c
--- 2/sv.c
+++ b/sv.c
@@@ -5033,12 -5033,23 +5033,25 @@@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const ch
                    dig = uv & 1;
                    *--eptr = '0' + dig;
                } while (uv >>= 1);
 -              if (alt && *eptr != '0')
 -                  *--eptr = '0';
 +              if (alt) {
 +                  esignbuf[esignlen++] = '0';
 +                  esignbuf[esignlen++] = 'b';
 +              }
                break;
            default:            /* it had better be ten or less */
+ #if defined(PERL_Y2KWARN)
+               if (ckWARN(WARN_MISC)) {
+                   STRLEN n;
+                   char *s = SvPV(sv,n);
+                   if (n >= 2 && s[n-2] == '1' && s[n-1] == '9'
+                       && (n == 2 || !isDIGIT(s[n-3])))
+                   {
+                       Perl_warner(aTHX_ WARN_MISC,
+                                   "Possible Y2K bug: %%%c %s",
+                                   c, "format string following '19'");
+                   }
+               }
+ #endif
                do {
                    dig = uv % base;
                    *--eptr = '0' + dig;