Change 14302 by jhi@alpha on 2002/01/16 13:47:58
Subject: [PATCH] length of undefined $(digit) should warn
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Tue, 15 Jan 2002 23:02:44 +0100
Message-ID: <20020115230244.A31786@rafael>
Affected files ...
.... //depot/perl/mg.c#219 edit
.... //depot/perl/t/lib/warnings/mg#2 edit
Differences ...
==== //depot/perl/mg.c#219 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Wed Jan 16 07:00:06 2002
+++ perl/mg.c Wed Jan 16 07:00:06 2002
@@ -458,6 +458,14 @@
Perl_croak(aTHX_ "panic: magic_len: %"IVdf, (IV)i);
return i;
}
+ else {
+ if (ckWARN(WARN_UNINITIALIZED))
+ report_uninit();
+ }
+ }
+ else {
+ if (ckWARN(WARN_UNINITIALIZED))
+ report_uninit();
}
return 0;
case '+':
==== //depot/perl/t/lib/warnings/mg#2 (text) ====
Index: perl/t/lib/warnings/mg
--- perl/t/lib/warnings/mg.~1~ Wed Jan 16 07:00:06 2002
+++ perl/t/lib/warnings/mg Wed Jan 16 07:00:06 2002
@@ -42,3 +42,10 @@
$SIG{"INT"} = "fred"; kill "INT",$$;
EXPECT
+########
+# mg.c
+use warnings 'uninitialized';
+'foo' =~ /(b)(a)(r)/;
+length $3;
+EXPECT
+Use of uninitialized value in length at - line 4.
End of Patch.
