This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid using defined @array in core tests.
authorNicholas Clark <nick@ccl4.org>
Fri, 23 Oct 2009 20:30:18 +0000 (21:30 +0100)
committerNicholas Clark <nick@ccl4.org>
Fri, 23 Oct 2009 21:07:07 +0000 (22:07 +0100)
ext/SDBM_File/t/sdbm.t

index 7021281..60423d9 100644 (file)
@@ -155,7 +155,7 @@ print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
    require Exporter ;
    use SDBM_File;
    @ISA=qw(SDBM_File);
-   @EXPORT = @SDBM_File::EXPORT if defined @SDBM_File::EXPORT ;
+   @EXPORT = @SDBM_File::EXPORT if @SDBM_File::EXPORT ;
 
    sub STORE { 
        my $self = shift ;