diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-07 17:41:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-07 17:41:41 +0000 |
| commit | 68ead86506151a439ca0b6bb73647ace79ee2296 (patch) | |
| tree | f1ffb6348af27f25b12dddb10f50129ea81f722e /t/op/bless.t | |
| parent | 66fc2fa5676803b0e5885abb1e459372b83f3321 (diff) | |
| download | perl-68ead86506151a439ca0b6bb73647ace79ee2296.tar.gz | |
Disable a portability warning Because We Know What We Are Doing.
p4raw-id: //depot/perl@6542
Diffstat (limited to 't/op/bless.t')
| -rw-r--r-- | t/op/bless.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/bless.t b/t/op/bless.t index 3d5d85d01b..7e7de4f724 100644 --- a/t/op/bless.t +++ b/t/op/bless.t @@ -13,7 +13,8 @@ sub expected { ref($object) eq $package && "$object" =~ /^\Q$package\E=(\w+)\(0x([0-9a-f]+)\)$/ && $1 eq $type - && hex($2) == $object + # in 64-bit platforms hex warns for 32+ -bit values + && do { no warnings 'portable'; hex($2) == $object } ); print "# $object $package $type\n"; return "not "; |