[svn:parrot] r39470 - trunk/tools/dev

[barney at svn.parrot.org]

Author: barney
Date: Tue Jun  9 08:52:09 2009
New Revision: 39470
URL: https://trac.parrot.org/parrot/changeset/39470

Log:
[tools] Put 'languages' into a variable.

Modified:
   trunk/tools/dev/fetch_languages.pl

Modified: trunk/tools/dev/fetch_languages.pl
==============================================================================
--- trunk/tools/dev/fetch_languages.pl	Tue Jun  9 08:51:33 2009	(r39469)
+++ trunk/tools/dev/fetch_languages.pl	Tue Jun  9 08:52:09 2009	(r39470)
@@ -30,10 +30,11 @@
 use Cwd;
 
 my ( $update_flag, $checkout_flag ) = ( 0, 1 );
-GetOptions( "update" => \$update_flag ) or pod2usage();
+GetOptions( 'update' => \$update_flag ) or pod2usage();
 
-mkdir 'languages';
-chdir 'languages';
+my $languages_dir = 'languages';
+mkdir $languages_dir;
+chdir $languages_dir;
 
 # some commands
 my %checkout_cmd = (