提交 b0590a53 编写于 作者: J Ján Tomko

test-wrap-argv: hold a copy of the original file in an array

This will be useful to check if the file is wrapped already.
上级 80880fd4
无相关合并请求
...@@ -33,15 +33,15 @@ sub rewrap { ...@@ -33,15 +33,15 @@ sub rewrap {
# Read the original file # Read the original file
open FILE, "<", $file or die "cannot read $file: $!"; open FILE, "<", $file or die "cannot read $file: $!";
my @lines; my @orig_lines = <FILE>;
while (<FILE>) { close FILE;
my @lines = @orig_lines;
foreach (@lines) {
# If there is a trailing '\' then kill the new line # If there is a trailing '\' then kill the new line
if (/\\$/) { if (/\\$/) {
chomp; chomp;
$_ =~ s/\\$//; $_ =~ s/\\$//;
} }
push @lines, $_;
} }
# Skip empty files # Skip empty files
...@@ -49,7 +49,6 @@ sub rewrap { ...@@ -49,7 +49,6 @@ sub rewrap {
# Kill the last new line in the file # Kill the last new line in the file
chomp @lines[$#lines]; chomp @lines[$#lines];
close FILE;
# Reconstruct the master data by joining all lines # Reconstruct the master data by joining all lines
# and then split again based on the real desired # and then split again based on the real desired
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册
反馈
建议
客服 返回
顶部