1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
Description: Use `file-rename' in POD
We install `rename' as `file-rename', so update the POD accordingly.
Also adjust t/rename-examples.t.
Origin: vendor
Forwarded: not-needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2023-01-23
--- a/source/rename
+++ b/source/rename
@@ -48,11 +48,11 @@
=head1 NAME
-rename - renames multiple files
+file-rename - renames multiple files
=head1 SYNOPSIS
-B<rename>
+B<file-rename>
S<[ B<-h>|B<-m>|B<-V> ]>
S<[ B<-v> ]>
S<[ B<-0> ]>
@@ -65,7 +65,7 @@
=head1 DESCRIPTION
-C<rename>
+C<file-rename>
renames the filenames supplied according to the rule specified as the
first argument.
The I<perlexpr>
@@ -81,11 +81,11 @@
For example, to rename all files matching C<*.bak> to strip the extension,
you might say
- rename -- 's/\.bak$//' *.bak
+ file-rename -- 's/\.bak$//' *.bak
To translate uppercase names to lower, you'd use
- rename 'y/A-Z/a-z/' ./*
+ file-rename 'y/A-Z/a-z/' ./*
Examples rewritten to avoid globs which could inject options.
@@ -94,11 +94,11 @@
You can also use rename to move files between directories, possibly at
the same time as making other changes (but see B<--filename>)
- rename 'y/A-Z/a-z/;s/^/my_new_dir\//' ./*.*
+ file-rename 'y/A-Z/a-z/;s/^/my_new_dir\//' ./*.*
You can also write the statements separately (see B<-e>/B<-E>)
- rename -E 'y/A-Z/a-z/' -E 's/^/my_new_dir\//' -- *.*
+ file-rename -E 'y/A-Z/a-z/' -E 's/^/my_new_dir\//' -- *.*
=head1 OPTIONS
--- a/t/rename-examples.t
+++ b/t/rename-examples.t
@@ -27,7 +27,7 @@
package main;
-my $generic = 'rename';
+my $generic = 'file-rename';
my $script = script_name();
eval { require($script) } or
BAIL_OUT qq{Can't require $script\n$@};
--- a/t/u/rename-examples.t
+++ b/t/u/rename-examples.t
@@ -27,7 +27,7 @@
package main;
-my $generic = 'rename';
+my $generic = 'file-rename';
my $script = unsafe_script_name();
eval { require($script) } or
BAIL_OUT qq{Can't require $script\n$@};
|
