diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-16 12:37:04 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 21:57:23 +0000 |
| commit | 531d22547835232ffe15fd22440ad9c72687d752 (patch) | |
| tree | 021384f8acc514d8f48f453d380b93bbe6f2468c /t/lib | |
| parent | f7686833794ab18a8c8729b0e836f6f14223ce97 (diff) | |
| download | perl-531d22547835232ffe15fd22440ad9c72687d752.tar.gz | |
Re: [ID 20011116.125] $a = undef; print "$a\n"; does not warn
Message-ID: <20011116173703.L30160@blackrider>
p4raw-id: //depot/perl@13085
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/sv | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv index 29bef82e09..3903df381f 100644 --- a/t/lib/warnings/sv +++ b/t/lib/warnings/sv @@ -180,6 +180,17 @@ $C .= $A ; EXPECT Use of uninitialized value in concatenation (.) or string at - line 10. ######## +# perlbug 20011116.125 +use warnings 'uninitialized'; +$a = undef; +$foo = join '', $a, "\n"; +$foo = "$a\n"; +$foo = "a:$a\n"; +EXPECT +Use of uninitialized value in join or string at - line 4. +Use of uninitialized value in concatenation (.) or string at - line 5. +Use of uninitialized value in concatenation (.) or string at - line 6. +######## # sv.c use warnings 'numeric' ; sub TIESCALAR{bless[]} ; |