Change 14303 by jhi@alpha on 2002/01/16 14:55:57
Subject: Re: [PATCH] length of undefined $(digit) should warn
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Wed, 16 Jan 2002 13:43:39 +0100
Message-ID: <20020116134339.A704@rafael>
(replaces #14302)
Affected files ...
.... //depot/perl/mg.c#220 edit
.... //depot/perl/t/lib/warnings/mg#3 edit
Differences ...
==== //depot/perl/mg.c#220 (text) ====
==== //depot/perl/t/lib/warnings/mg#3 (text) ====
Index: perl/t/lib/warnings/mg
--- perl/t/lib/warnings/mg.~1~ Wed Jan 16 08:00:05 2002
+++ perl/t/lib/warnings/mg Wed Jan 16 08:00:05 2002
@@ -45,7 +45,13 @@
########
# mg.c
use warnings 'uninitialized';
-'foo' =~ /(b)(a)(r)/;
+'foo' =~ /(foo)/;
length $3;
EXPECT
Use of uninitialized value in length at - line 4.
+########
+# mg.c
+use warnings 'uninitialized';
+length $3;
+EXPECT
+Use of uninitialized value in length at - line 3.
End of Patch.
