diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-01-16 14:43:39 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-16 14:55:57 +0000 |
| commit | 0e7ca5c94a5a71c5166f79526a9345aeb239711e (patch) | |
| tree | decd0b54819f95cd50d4e91caebf3a43b7afc38f /t/lib/warnings/mg | |
| parent | b6f8df71d5e985ce8ae65d0fa6dad736bb651b45 (diff) | |
| download | perl-0e7ca5c94a5a71c5166f79526a9345aeb239711e.tar.gz | |
Re: [PATCH] length of undefined $(digit) should warn
Message-ID: <20020116134339.A704@rafael>
(replaces #14302)
p4raw-id: //depot/perl@14303
Diffstat (limited to 't/lib/warnings/mg')
| -rw-r--r-- | t/lib/warnings/mg | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/lib/warnings/mg b/t/lib/warnings/mg index 6c9e271017..2190638dc2 100644 --- a/t/lib/warnings/mg +++ b/t/lib/warnings/mg @@ -45,7 +45,13 @@ EXPECT ######## # 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. |