textproc/p5-XML-Parser/files/check_nfs.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
#
# $FreeBSD$

use strict;
use warnings;
use File::Temp qw(tempfile);

my ($fh, $fn) = tempfile("check-XXXXXX", SUFFIX => '.tmp', TMPDIR => 1, UNLINK => 1);
#print "$fn\n";