Changeset 29684
- Timestamp:
- 2015-01-13T16:16:20+13:00 (9 years ago)
- Location:
- main/trunk/package-kits/scripts
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/scripts/perllib/Greenstone/XML/Tidy.pm
r29680 r29684 116 116 # Writes a data structure to an XML file 117 117 sub write_xml { 118 my ($hash, $file) = @_; 118 my ($hash, $file, $mode) = @_; 119 $mode = '>' unless defined $mode; 119 120 my $FH; 120 121 if ($file ne '-') { 121 unless (open $FH, '>:utf8', $file) {122 unless (open $FH, $mode . ':utf8', $file) { 122 123 print STDERR "Failed to open output file '$file': $!\n"; 123 124 return 0;
Note:
See TracChangeset
for help on using the changeset viewer.