This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: c4df8c7) | patch
Avoid "Use of uninitialized value $res in numeric eq (==)" warning
authorJames E Keenan <jkeenan@cpan.org>
Sat, 15 Dec 2018 15:29:12 +0000 (10:29 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 15 Dec 2018 15:29:12 +0000 (10:29 -0500)
commitc950d6fa306a1a0a1e28ece3646aec9490a7ea0e
tree5cdd89a92704b3e00deb0cd624d729257e78c751tree | snapshot
parentc4df8c74c98b6ecac7f95d0184638f24f0a13bcccommit | diff
Avoid "Use of uninitialized value $res in numeric eq (==)" warning

The test within the SKIP block expects $res to be undef, but the 'skip'
condition itself expects it to be defined and numeric.  So we were
getting an uninitialized value warning.  In 'skip' condition, test for
definedness before numeric comparison.
ext/GDBM_File/t/fatal.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.