diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-04-18 11:57:37 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-04-18 11:57:37 +0000 |
commit | 5131fb684f33dd0010ad0332b54550252dc39999 (patch) | |
tree | 8791847ab9da66c8facb9a44bbacbab511772753 | |
parent | 9d0ea3580b71ce9327371e897195b032ec76f7d4 (diff) |
Fix for Cactus/607
Changed chops to chomps to remove problems with lacking newlines
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2120 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/MakeUtils.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/sbin/MakeUtils.pl b/lib/sbin/MakeUtils.pl index 41fcdda8..01eea96d 100644 --- a/lib/sbin/MakeUtils.pl +++ b/lib/sbin/MakeUtils.pl @@ -31,7 +31,7 @@ sub buildthorns while(<ARRANGEMENTS>) { - chop; + chomp; # Ignore CVS and backup stuff next if (m:^CVS$:); @@ -60,7 +60,7 @@ sub buildthorns while(<THORNLIST>) { - chop; + chomp; # Ignore CVS and backup stuff next if (m:^CVS$:); @@ -137,7 +137,7 @@ sub ThornInfo while(<INTERFACE>) { - chop; + chomp; if (m/^\s*IMPLEMENTS\s*:\s*([a-z]+[a-z_0-9]*)\s*$/i) { $implementation = $1; @@ -158,7 +158,7 @@ sub ThornInfo while(<PARAM>) { - chop; + chomp; if($line =~ m/SHARES\s*:(.*)/i) { $share .= " $1"; |