=cut
use strict;
+#use warnings; FIXME - Bug 2505
use Getopt::Long;
use Locale::PO;
use File::Temp qw( :POSIX );
sprintf(' %s=%s', $_, $attr->{$_}->[2]) #FIXME
} sort {
$attr->{$a}->[3] <=> $attr->{$b}->[3] #FIXME
- } keys %$attr)
- . '>';
- } else {
- $it = $t;
+ } keys %$attr);
+ if ($tag eq 'img'){
+ $it .= ' />';
+ }
+ else {
+ $it .= ' >';
+ }
+ }
+ else {
+ $it = $t;
}
return $it;
}
}
}
} elsif (defined $t) {
+ # Quick fix to bug 4472
+ $t = "<!DOCTYPE stylesheet [" if $t =~ /DOCTYPE stylesheet/ ;
print $output $t;
}
}
usage_error('You must at least specify input and string list filenames.')
if !@in_files || !defined $str_file;
-# Type match defaults to *.tmpl plus *.inc if not specified
-$type = "tmpl|inc|xsl" if !defined($type);
+# Type match defaults to *.tt plus *.inc if not specified
+$type = "tt|inc|xsl" if !defined($type);
# Check the inputs for being files or directories
for my $input (@in_files) {
mkdir_recursive($targetdir) unless -d $targetdir;
print STDERR "Creating $target...\n" unless $quiet;
open( OUTPUT, ">$target" ) || die "$target: $!\n";
+ binmode( OUTPUT, ":utf8" );
text_replace( $h, *OUTPUT );
close OUTPUT;
} else {