Avoid using defined @array in core tests.
Nicholas Clark [Fri, 23 Oct 2009 20:30:18 +0000 (21:30 +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 ;