diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-23 21:30:18 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-23 22:07:07 +0100 |
| commit | d97c514e66a6aa9335c6b751c79bc90efa1a8715 (patch) | |
| tree | 284ce89f49d905801b96b830f806565c4f6a4a01 | |
| parent | 902fde96768bb39d4175218f674fe7b3c162dddd (diff) | |
| download | perl-d97c514e66a6aa9335c6b751c79bc90efa1a8715.tar.gz | |
Avoid using defined @array in core tests.
| -rw-r--r-- | ext/SDBM_File/t/sdbm.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/SDBM_File/t/sdbm.t b/ext/SDBM_File/t/sdbm.t index 7021281ad5..60423d916c 100644 --- a/ext/SDBM_File/t/sdbm.t +++ b/ext/SDBM_File/t/sdbm.t @@ -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 ; |