Matt McCutchen's Web Site
/
rsync
/
rsync-patches.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ae6834e
)
Fixed a problem joining multiple .rej names in the edit command.
author
Wayne Davison
<wayned@samba.org>
Wed, 15 Feb 2006 17:34:20 +0000
(17:34 +0000)
committer
Wayne Davison
<wayned@samba.org>
Wed, 15 Feb 2006 17:34:20 +0000
(17:34 +0000)
verify-patches
patch
|
blob
|
blame
|
history
diff --git
a/verify-patches
b/verify-patches
index
219a2ae
..
91eebbe
100755
(executable)
--- a/
verify-patches
+++ b/
verify-patches
@@
-3,8
+3,6
@@
use strict;
use Getopt::Long;
use strict;
use Getopt::Long;
-$" = '|'; # NOTE: we auto-join arrays using '|' instead of space!
-
my @generated_files = qw( proto.h configure config.h.in rsync.1 rsyncd.conf.5 );
my($no_cvs, $failures_only, $minor_updates, $prepare_source);
my @generated_files = qw( proto.h configure config.h.in rsync.1 rsyncd.conf.5 );
my($no_cvs, $failures_only, $minor_updates, $prepare_source);
@@
-19,8
+17,10
@@
GetOptions(
'auto-cmd|a=s' => sub { push(@auto_cmds, $_[1]) },
) or &usage;
'auto-cmd|a=s' => sub { push(@auto_cmds, $_[1]) },
) or &usage;
+$" = '|';
my $auto_regex = @auto_cmds ? qr/^(@auto_cmds)$/i : qr/^never$/;
my $interesting_fuzz = $minor_updates ? '\d' : '[2-9]';
my $auto_regex = @auto_cmds ? qr/^(@auto_cmds)$/i : qr/^never$/;
my $interesting_fuzz = $minor_updates ? '\d' : '[2-9]';
+$" = ' ';
chdir('patches') if -d 'patches';
chdir('patches') if -d 'patches';
@@
-120,7
+120,9
@@
foreach my $diff (@ARGV) {
chomp $input;
if ($input =~ s/^(-a|--auto-cmd=?)\s*//) {
push(@auto_cmds, $input eq '' ? $default : $input);
chomp $input;
if ($input =~ s/^(-a|--auto-cmd=?)\s*//) {
push(@auto_cmds, $input eq '' ? $default : $input);
+ $" = '|';
$auto_regex = qr/^(@auto_cmds)$/i;
$auto_regex = qr/^(@auto_cmds)$/i;
+ $" = ' ';
next;
}
$ans = $input if $input ne '';
next;
}
$ans = $input if $input ne '';