korg/e2fsprogs
0
0
Fork 0
mirror of https://git.kernel.org/pub/scm/fs/ext2/e2fsprogs.git synced 2024-11-23 10:04:01 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix wordwrap.pl so it is more portable

Browse Source 
Needed so that wordwrap.pl works with perl 5.14.2

Signed-off-by: "Theodore Ts'o" <tytso@mit.edu>
This commit is contained in:
Theodore Ts'o 2012-09-21 12:31:13 -04:00
parent b2f5ce5516
commit bbcd91bb0d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
wordwrap.pl
View File

@ -9,8 +9,8 @@ while (<>) {
}
next if (/^$/); # skip blank lines
$linelen = 0;
split;
while (defined($word = shift @_)) {
@words = split;
while (defined($word = shift @words)) {
$word =~ s#\$\(srcdir\)/\.\./version.h#\$\(top_srcdir\)/version.h#;
$word =~ s#\$\(srcdir\)/.\.\/\.\./version.h#\$\(top_srcdir\)/version.h#;
$word =~ s#\$\(srcdir\)/.\.\/et/com_err.h#\$\(top_srcdir\)/lib/et/com_err.h#;