File change-command-name.patch of Package perl-File-Rename
Name the command `file-rename` so as not to conflict with the command provided by `util-linux`.
This is not only the upstream's choice of an alternative name, but also makes us compatible with Debian
(see https://salsa.debian.org/perl-team/modules/packages/rename/-/blob/master/debian/rules )
diff --git a/Build.PL b/Build.PL
index 8912e96..7692ec4 100644
--- a/Build.PL
+++ b/Build.PL
@@ -1,9 +1,7 @@
use strict;
use Module::Build;
use File::Spec;
-my $script = File::Spec->catfile( 'script',
- Module::Build->os_type eq 'Windows'
- ? 'file-rename' : 'rename' );
+my $script = File::Spec->catfile( 'script', 'file-rename' );
Module::Build -> new (
license => 'perl',
diff --git a/t/testlib.pl b/t/testlib.pl
index 34dcb64..fa5256a 100644
--- a/t/testlib.pl
+++ b/t/testlib.pl
@@ -130,7 +130,7 @@ sub is_windows {
}
sub script_name {
- return +(is_windows() ? 'file-rename' : 'rename');
+ return +('file-rename');
}
1;