From 6b7cf2c145068fde3d0c7d31ed3f89849e0327c5 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Mon, 18 Oct 1999 15:24:21 +0000
Subject: Fixed thorn list parsing: GNATS/139

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1063 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/sbin/CopyParFiles.pl | 4 ++--
 1 file 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)
-- 
cgit v1.2.3