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.
[perl5.git] / 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 ;