diff options
-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) |