diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-16 18:43:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-10-16 18:43:21 +0000 |
| commit | 78e1b766412138639765560ca379489ded0446bf (patch) | |
| tree | 392db4a063f6bfc6b578502c2a6eb22191bfb4bd /t | |
| parent | 7c89f822cb10ced0749b67c4d8a890f65ee4c463 (diff) | |
| download | perl-78e1b766412138639765560ca379489ded0446bf.tar.gz | |
prototype() didn't warn when used in void context.
p4raw-id: //depot/perl@18020
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/op | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index 1e39c0ee11..c5f8147a5c 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -298,6 +298,7 @@ eval { getgrnam 1 }; # OP_GGRNAM eval { getgrgid 1 }; # OP_GGRGID eval { getpwnam 1 }; # OP_GPWNAM eval { getpwuid 1 }; # OP_GPWUID +prototype "foo"; # OP_PROTOTYPE EXPECT Useless use of repeat (x) in void context at - line 3. Useless use of wantarray in void context at - line 5. @@ -336,6 +337,7 @@ Useless use of getgrnam in void context at - line 50. Useless use of getgrgid in void context at - line 51. Useless use of getpwnam in void context at - line 52. Useless use of getpwuid in void context at - line 53. +Useless use of subroutine prototype in void context at - line 54. ######## # op.c use warnings 'void' ; close STDIN ; @@ -398,6 +400,7 @@ eval { getgrnam 1 }; # OP_GGRNAM eval { getgrgid 1 }; # OP_GGRGID eval { getpwnam 1 }; # OP_GPWNAM eval { getpwuid 1 }; # OP_GPWUID +prototype "foo"; # OP_PROTOTYPE EXPECT ######## # op.c |