![[BACK]](/icons/back.gif){kind=icon}
Return to render.texxml.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / help|
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") |