diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-30 15:56:43 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-30 15:56:43 +0000 |
commit | 542ffd015a54ccbe23e290b0ff90edfc0b2669a2 (patch) | |
tree | aef97b97a4a0f969aac56079ccd4f4fbcba4944f /lib/make/new_thorn.pl | |
parent | 667283d6049430d77baf26acac683f824f8d8669 (diff) |
Now "packages" are called "arrangements"
Everything should work again (!)
git-svn-id: http://svn.cactuscode.org/flesh/trunk@839 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/make/new_thorn.pl')
-rwxr-xr-x | lib/make/new_thorn.pl | 16 |
1 files changed, 8 insertions, 8 deletions
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; } |