Changeset 29684 for main/trunk/package-kits/scripts/perllib/Greenstone/XML/Tidy.pm

Timestamp:

2015-01-13T16:16:20+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Added gs-mkservlet script which creates a servlet with a valid site and interface.

File:

• main/trunk/package-kits/scripts/perllib/Greenstone/XML/Tidy.pm (modified) (1 diff)

main/trunk/package-kits/scripts/perllib/Greenstone/XML/Tidy.pm

@@ -116 +116 @@
 # Writes a data structure to an XML file
 sub write_xml {
-    my ($hash, $file) = @_;
+    my ($hash, $file, $mode) = @_;
+    $mode = '>' unless defined $mode;
     my $FH;
     if ($file ne '-') {
-        unless (open $FH, '>:utf8', $file) {
+        unless (open $FH, $mode . ':utf8', $file) {
             print STDERR "Failed to open output file '$file': $!\n";
             return 0;