This will be useful to check if the file is wrapped already.
---
tests/test-wrap-argv.pl | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/tests/test-wrap-argv.pl b/tests/test-wrap-argv.pl
index 1f619cc..96f998a 100755
--- a/tests/test-wrap-argv.pl
+++ b/tests/test-wrap-argv.pl
@@ -33,15 +33,15 @@ sub rewrap {
# Read the original file
open FILE, "<", $file or die "cannot read $file: $!";
- my @lines;
- while (<FILE>) {
+ my @orig_lines = <FILE>;
+ close FILE;
+ my @lines = @orig_lines;
+ foreach (@lines) {
# If there is a trailing '\' then kill the new line
if (/\\$/) {
chomp;
$_ =~ s/\\$//;
}
-
- push @lines, $_;
}
# Skip empty files
@@ -49,7 +49,6 @@ sub rewrap {
# Kill the last new line in the file
chomp @lines[$#lines];
- close FILE;
# Reconstruct the master data by joining all lines
# and then split again based on the real desired
--
2.7.3