diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-04-06 19:08:52 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-07 17:28:26 +0000 |
| commit | 59bb58455c306b86a68fba97f3fcce0a1f372a01 (patch) | |
| tree | 4b8d6810ca005b6fa222239599ffcc7548dc3867 /t/pragma | |
| parent | b8fa94d833cd9fcbc2e9db4b24f4b6f366a204a4 (diff) | |
| download | perl-59bb58455c306b86a68fba97f3fcce0a1f372a01.tar.gz | |
isn't numeric warning
Message-Id: <200104061708.SAA06783@tempest.npl.co.uk>
p4raw-id: //depot/perl@9613
Diffstat (limited to 't/pragma')
| -rw-r--r-- | t/pragma/warn/sv | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/pragma/warn/sv b/t/pragma/warn/sv index 2409589a8f..b3929e2210 100644 --- a/t/pragma/warn/sv +++ b/t/pragma/warn/sv @@ -226,6 +226,23 @@ EXPECT Argument "def" isn't numeric in bitwise and (&) at - line 3. ######## # sv.c +use warnings 'numeric' ; +my $x = pack i => "def" ; +no warnings 'numeric' ; +my $z = pack i => "def" ; +EXPECT +Argument "def" isn't numeric in pack at - line 3. +######## +# sv.c +use warnings 'numeric' ; +my $a = "d\0f" ; +my $x = 1 + $a ; +no warnings 'numeric' ; +my $z = 1 + $a ; +EXPECT +Argument "d\0f" isn't numeric in addition (+) at - line 4. +######## +# sv.c use warnings 'redefine' ; sub fred {} sub joe {} |