[sword-svn] r353 - trunk/modules/misc_cleanup

[chrislit at crosswire.org]

Author: chrislit
Date: 2012-02-25 19:02:34 -0700 (Sat, 25 Feb 2012)
New Revision: 353

Modified:
   trunk/modules/misc_cleanup/title_cleanup.pl
Log:
oops, still need to open as writable

Modified: trunk/modules/misc_cleanup/title_cleanup.pl
===================================================================
--- trunk/modules/misc_cleanup/title_cleanup.pl	2012-02-26 01:56:29 UTC (rev 352)
+++ trunk/modules/misc_cleanup/title_cleanup.pl	2012-02-26 02:02:34 UTC (rev 353)
@@ -55,7 +55,7 @@
 
 if (@ARGV[1] eq "-o") {
     $outputFilename = "@ARGV[2]";
-    open (OUTF, "$outputFilename") or die "Could not open file @ARGV[2] for writing.";
+    open (OUTF, ">", "$outputFilename") or die "Could not open file @ARGV[2] for writing.";
     binmode OUTF;
     select(OUTF);
 }