diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2020-01-23 17:31:25 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2020-01-23 17:31:25 +0200 |
commit | 5146440d1b6f8b63b044db22562fb2355b4ef64d (patch) | |
tree | 41b32fc1eebf06b724895d727f50a028c721ea02 | |
parent | 152ee1b1e753a6879989e27c0b56a4681e72aa8c (diff) | |
download | file-backup-5146440d1b6f8b63b044db22562fb2355b4ef64d.tar.gz file-backup-5146440d1b6f8b63b044db22562fb2355b4ef64d.tar.bz2 |
Minor fix (testsuite)
* t/TestBackup.pm (import): Fix call to export_to_level
-rw-r--r-- | t/TestBackup.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/TestBackup.pm b/t/TestBackup.pm index 72e5925..62ca43f 100644 --- a/t/TestBackup.pm +++ b/t/TestBackup.pm @@ -10,12 +10,11 @@ our @ISA = qw(Test); our @EXPORT=qw(makefile fileok plan ok); sub import { - my $pkg = shift; my $workdir = tempdir(CLEANUP => 1); chdir($workdir) or croak "can't change to $workdir: $!"; @pattern = grep { /[\w\d]+/ } map { chr($_) } (1..127); delete $ENV{VERSION_CONTROL}; - $pkg->export_to_level(1, @_); + $_[0]->export_to_level(1, @_); } sub makefile { |