Return to render.texxml.pl CVS log | Up to [LON-CAPA] / doc / help |
version 1.19, 2005/05/05 18:59:07 | version 1.20, 2018/11/01 03:31:21 |
---|---|
Line 27 | Line 27 |
use strict; | use strict; |
use Fcntl; | use Fcntl; |
use POSIX qw(tmpnam); | use File::Temp; |
if ( scalar(@ARGV) < 2 ) | if ( scalar(@ARGV) < 2 ) |
{ | { |
Line 57 USAGE | Line 57 USAGE |
exit(); | exit(); |
} | } |
my $tmpdir = tmpnam(); | my $tmpdir = File::Temp::tempdir(); |
my $fileroot = $ARGV[1]; | my $fileroot = $ARGV[1]; |
if (substr($fileroot, -7) eq ".texxml") | if (substr($fileroot, -7) eq ".texxml") |