This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid using defined %hash in core code and tests.
authorNicholas Clark <nick@ccl4.org>
Fri, 23 Oct 2009 20:29:49 +0000 (21:29 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 23 Oct 2009 21:07:06 +0000 (22:07 +0100)
ext/B/B/Concise.pm
lib/DBM_Filter.pm
t/op/magic.t

index 067d89e..671212d 100644 (file)
@@ -14,7 +14,7 @@ use warnings; # uses #3 and #4, since warnings uses Carp
 
 use Exporter (); # use #5
 
-our $VERSION   = "0.77";
+our $VERSION   = "0.78";
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw( set_style set_style_standard add_callback
                     concise_subref concise_cv concise_main
@@ -299,7 +299,7 @@ sub compileOpts {
        elsif ($o =~ /^-stash=(.*)/) {
            my $pkg = $1;
            no strict 'refs';
-           if (!defined %{$pkg.'::'}) {
+           if (! %{$pkg.'::'}) {
                eval "require $pkg";
            } else {
                require Config;
index 8947c0c..abcc127 100644 (file)
@@ -2,7 +2,7 @@ package DBM_Filter ;
 
 use strict;
 use warnings;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 package Tie::Hash ;
 
@@ -93,7 +93,7 @@ sub _do_Filter_Push
     
         no strict 'refs';
         # does the "DBM_Filter::$class" exist?
-       if ( ! defined %{ "${class}::"} ) {
+       if ( ! %{ "${class}::"} ) {
            # Nope, so try to load it.
             eval " require $class ; " ;
             croak "$caller: Cannot Load DBM Filter '$class': $@" if $@;
index 6e3da53..975be11 100644 (file)
@@ -382,7 +382,7 @@ SKIP: {
 
    ok scalar eval q{
       %!;
-      defined %Errno::;
+      scalar %Errno::;
    }, $@;
 }