From: Erik V. <ev...@us...> - 2010-01-24 14:41:59
|
Update of /cvsroot/rails/18xx/tiles In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv31116/tiles Modified Files: FixInvisibility.pl Log Message: Allow passing working directory Index: FixInvisibility.pl =================================================================== RCS file: /cvsroot/rails/18xx/tiles/FixInvisibility.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** FixInvisibility.pl 18 Dec 2009 20:03:31 -0000 1.1 --- FixInvisibility.pl 24 Jan 2010 14:41:50 -0000 1.2 *************** *** 1,3 **** ! $dir = "TileDictionary"; opendir (DIR, $dir) and print "Opened $dir\n" or die "Cannot open dir $dir: $!\n"; while (($file = readdir DIR)) { --- 1,3 ---- ! $dir = $ARGV[0] || "TileDictionary"; opendir (DIR, $dir) and print "Opened $dir\n" or die "Cannot open dir $dir: $!\n"; while (($file = readdir DIR)) { |