From 542ffd015a54ccbe23e290b0ff90edfc0b2669a2 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Fri, 30 Jul 1999 15:56:43 +0000
Subject: Now "packages" are called "arrangements"

Everything should work again (!)


git-svn-id: http://svn.cactuscode.org/flesh/trunk@839 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/make/new_thorn.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'lib/make/new_thorn.pl')

diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl
index ffb1d2b6..2a9c90e3 100755
--- a/lib/make/new_thorn.pl
+++ b/lib/make/new_thorn.pl
@@ -9,7 +9,7 @@
 #  @version $Id$ 
 #@@*/
 
-$package_dir = "packages";
+$package_dir = "arrangements";
 
 $thorn_name = shift(@ARGV);
 
@@ -20,10 +20,10 @@ if(!$thorn_name)
 
 if(!$package)
 {
-  @packages = &GetToolkits($package_dir);
+  @arrangements = &GetToolkits($package_dir);
   
-  print "The following packages are available:\n";
-  foreach $package (@packages)
+  print "The following arrangements are available:\n";
+  foreach $package (@arrangements)
   {
     print "$package\n";
   }
@@ -182,7 +182,7 @@ sub prompt {
 #  @date       Wed Feb  3 16:45:22 1999
 #  @author     Tom Goodale
 #  @desc 
-#  Gets a list of the current packages.
+#  Gets a list of the current arrangements.
 #  @enddesc 
 #  @calls     
 #  @calledby   
@@ -195,7 +195,7 @@ sub GetToolkits
 {
   local($package_dir) = @_;
   local($start_dir);
-  local(@packages);
+  local(@arrangements);
 
   $start_dir = `pwd`;
 
@@ -215,7 +215,7 @@ sub GetToolkits
     # Just pick directories
     if( -d $_)
     {
-      push (@packages, $_);
+      push (@arrangements, $_);
     }
   }
 
@@ -223,5 +223,5 @@ sub GetToolkits
 
   chdir $start_dir;
 
-  return @packages;
+  return @arrangements;
 }
-- 
cgit v1.2.3