diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-18 15:24:21 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-18 15:24:21 +0000 |
| commit | 6b7cf2c145068fde3d0c7d31ed3f89849e0327c5 (patch) | |
| tree | 7c95b5b0a772750ae884141d099459031949c13d | |
| parent | 2319e7caf864c1993d70b476f386744aeaadd421 (diff) | |
Fixed thorn list parsing: GNATS/139
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1063 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | lib/sbin/CopyParFiles.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/CopyParFiles.pl b/lib/sbin/CopyParFiles.pl index d2487a2d..30c17efc 100644 --- a/lib/sbin/CopyParFiles.pl +++ b/lib/sbin/CopyParFiles.pl @@ -17,8 +17,8 @@ if (! -d "thornparfiles") while (<THORNLIST>) { - $thorn = $_; - chop($thorn); + /^(.*)\s/; + $thorn=$1; print "Thorn $thorn\n"; $thorn = "arrangements/$thorn/par"; if (-d $thorn) |