The unified diff between revisions [470be447..] and [f00ecee7..] 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 [38686941749f2e7195e0588ad8640feec0fc8737]
#
============================================================
--- configure.pl 04804bd305b3957b383122b8182021756ba7c6af
+++ configure.pl 38686941749f2e7195e0588ad8640feec0fc8737
@@ -9,7 +9,7 @@ my $MINOR_VERSION = 7;
my $MAJOR_VERSION = 1;
my $MINOR_VERSION = 7;
-my $PATCH_VERSION = 5;
+my $PATCH_VERSION = 6;
my $VERSION_STRING = "$MAJOR_VERSION.$MINOR_VERSION.$PATCH_VERSION";
@@ -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;
}