diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2020-01-27 07:21:29 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2020-01-27 07:26:33 +0200 |
commit | cafe11d43e7d1fb298acb0e5c78f97b8c808b4a3 (patch) | |
tree | 0e73e154bd1f24cfa8686fa4c1eb8b7c92f73dc6 /t | |
parent | f3d76da04b7e918c104693b8584c4f4bd18a7c8d (diff) | |
download | file-backup-cafe11d43e7d1fb298acb0e5c78f97b8c808b4a3.tar.gz file-backup-cafe11d43e7d1fb298acb0e5c78f97b8c808b4a3.tar.bz2 |
Various improvements; support for MSWin32v1.01
* Makefile.PL: Minimal Perl version 5.14.2
When building on MSWin32, require Win32API::File.
* lib/File/BackupCopy.pm: Provide three different versions
of the rename_backup function: for POSIX systems, for MSWin32
and a fallback for systems not falling into either category.
* t/TestBackup.pm: Minor change in import.
Diffstat (limited to 't')
-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 { |