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