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)) {
|
