diff options
| author | Chris Little <chrislit@crosswire.org> | 2012-02-26 02:02:34 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2012-02-26 02:02:34 +0000 |
| commit | 083308f932fd8ca7b83d9966df67e8e005a20bb3 (patch) | |
| tree | f1907fcc36e3df1034ee7f8a36250453140fe5ab | |
| parent | c95605dc60d28f4078775d6e5d26d3a560962f31 (diff) | |
| download | sword-tools-083308f932fd8ca7b83d9966df67e8e005a20bb3.tar.gz | |
oops, still need to open as writable
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@353 07627401-56e2-0310-80f4-f8cd0041bdcd
| -rwxr-xr-x | modules/misc_cleanup/title_cleanup.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/modules/misc_cleanup/title_cleanup.pl b/modules/misc_cleanup/title_cleanup.pl index 899368c..903d1b2 100755 --- a/modules/misc_cleanup/title_cleanup.pl +++ b/modules/misc_cleanup/title_cleanup.pl @@ -55,7 +55,7 @@ my $outputFilename; 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); } |