my $f = $ARGV[0];
die("Bad extension of $f") if ($f !~ /\.xml$/);
die("Could not read $f") if (!open(FI, $f));
-my ($fh, $filename) = tempfile("tempXXXX", SUFFIX => '.xml', DIR => '/tmp', UNLINK => 0);
+my ($fh, $filename) = tempfile("tempXXXX", SUFFIX => '.xml', UNLINK => 0);
while (my $l = <FI>) {
chomp($l);
$l = convert($l);
$rest = $3;
}
elsif ($rest =~ /^([^\s]+)(.*)$/) {
- my $val1 = $1
+ my $val1 = $1;
$rest = $2;
$val1 =~ s/([\"\'\\])/\\$1/g;
$val = '"' . $val1 . '"';