The unified diff between revisions [470be447..] and [4b88c5d6..] is displayed below. It can also be downloaded as a raw diff.
This diff has been restricted to the following files: 'configure.pl'
#
#
# patch "configure.pl"
# from [04804bd305b3957b383122b8182021756ba7c6af]
# to [09614d6b5dfc3598af26874101ba49d7be2b79f0]
#
============================================================
--- configure.pl 04804bd305b3957b383122b8182021756ba7c6af
+++ configure.pl 09614d6b5dfc3598af26874101ba49d7be2b79f0
@@ -1493,34 +1493,31 @@ sub file_list {
##################################################
sub file_list {
my ($put_in, $from, $to, %files) = @_;
- my $spaces = 16;
my $list = '';
- my $len = $spaces;
+ my $spaces = 16;
+
foreach (sort keys %files) {
my $file = $_;
- if($len > 60) {
- $list .= "\\\n" . ' 'x$spaces;
- $len = $spaces;
- }
-
$file =~ s/$from/$to/ if(defined($from) and defined($to));
my $dir = $files{$_};
$dir = $put_in if defined $put_in;
if(defined($dir)) {
- $list .= File::Spec->catfile ($dir, $file) . ' ';
- $len += length($file) + length($dir);
+ $list .= File::Spec->catfile ($dir, $file);
}
else {
- $list .= $file . ' ';
- $len += length($file);
+ $list .= $file;
}
+
+ $list .= " \\\n ";
}
+ $list =~ s/\\\n +$//; # remove trailing escape
+
return $list;
}