diff options
author | Paul Marquess <paul.marquess@btinternet.com> | 2000-08-29 00:55:06 +0100 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-28 23:12:05 +0000 |
commit | f1f338184e4a44fc14036174dbaf0664efde29d6 (patch) | |
tree | 83c2c046990c9d1bfbe59b8e24a1788f84ed540d /t | |
parent | dbc74947e9fc1a7cf5a73c334e78f12a4207c5c2 (diff) | |
download | perl-f1f338184e4a44fc14036174dbaf0664efde29d6.tar.gz |
warnings fixes
Message-ID: <000501c01143$0230af80$2014140a@bfs.phone.com>
p4raw-id: //depot/perl@6869
Diffstat (limited to 't')
-rw-r--r-- | t/pragma/warn/7fatal | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/t/pragma/warn/7fatal b/t/pragma/warn/7fatal index 382a8458e5..a25fa2c2ea 100644 --- a/t/pragma/warn/7fatal +++ b/t/pragma/warn/7fatal @@ -276,3 +276,37 @@ $a =+ 1 ; print STDERR "The End.\n" ; EXPECT Reversed += operator at - line 8. +######## + +use warnings 'void' ; + +time ; + +{ + use warnings FATAL => qw(void) ; + length "abc" ; +} + +join "", 1,2,3 ; + +print "done\n" ; +EXPECT +Useless use of time in void context at - line 4. +Useless use of length in void context at - line 8. +######## + +use warnings ; + +time ; + +{ + use warnings FATAL => qw(void) ; + length "abc" ; +} + +join "", 1,2,3 ; + +print "done\n" ; +EXPECT +Useless use of time in void context at - line 4. +Useless use of length in void context at - line 8. |