# | Line 6 | Line 6 | |
---|---|---|
6 | # G. Ward | |
7 | # | |
8 | use strict; | |
9 | + | use File::Temp qw/ :mktemp /; |
10 | if ($#ARGV < 0) { | |
11 | print STDERR "Usage: genklemsamp [-c N ][-f{a|f|d}] [view opts] [geom.rad ..]\n"; | |
12 | exit 1; | |
13 | } | |
14 | < | my $td = `mktemp -d /tmp/genklemsamp.XXXXXX`; |
14 | > | my $td = mkdtemp("/tmp/genklemsamp.XXXXXX"); |
15 | chomp $td; | |
16 | my $nsamp = 1000; | |
17 | my $fmt = "a"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |