1234567891011121314151617 #!/usr/local/bin/perluse blib;use strict;use warnings;use AFS::FS qw(rmmount);my ($mountp, $ok);die "Usage: $0 mountp\n" if ($#ARGV == -1);$mountp = shift;$ok = rmmount($mountp);if ($AFS::CODE) { print "AFS::CODE = $AFS::CODE\n"; }else { print "ok rmmount = $ok\n"; }
#!/usr/local/bin/perl
use
blib;
strict;
warnings;
AFS::FS
qw(rmmount)
;
my
(
$mountp
,
$ok
);
die
"Usage: $0 mountp\n"
if
$#ARGV
== -1);
=
shift
= rmmount(
$AFS::CODE
) {
print
"AFS::CODE = $AFS::CODE\n"
; }
else
{
"ok rmmount = $ok\n"