bugfix: remove references to global $debug (not implemented yet) and $rhost (not applicable in sanoid)

This commit is contained in:
Jim Salter 2014-11-17 10:24:37 -05:00
parent 97382ed9d8
commit 75e7f54128
1 changed files with 5 additions and 3 deletions

8
sanoid
View File

@ -955,19 +955,21 @@ sub iszfsbusy {
# check to see if ZFS filesystem passed in as argument currently has a zfs send or zfs receive process referencing it.
# return true if busy (currently being sent or received), return false if not.
my $debug; #REMOVE THIS LATER when global $debug is actually implemented in sanoid!
my $fs = shift;
my $pscmd = '/bin/ps';
if ($debug) { print "DEBUG: checking to see if $fs on $rhost is already in zfs receive using $pscmd axo args= ...\n"; }
if ($debug) { print "DEBUG: checking to see if $fs on is already in zfs receive using $pscmd axo args= ...\n"; }
open PL, "$pscmd axo args= |";
my @processes = <PL>;
close PL;
foreach my $process (@processes) {
if ($debug) { print "DEBUG: checking process $process...\n"; }
# if ($debug) { print "DEBUG: checking process $process...\n"; }
if ($process =~ /zfs *(send|receive).*$fs/) {
# there's already a zfs send/receive process for our target filesystem - return true
if ($debug) { print "DEBUG: process $process matches target $fs!\n"; }
# if ($debug) { print "DEBUG: process $process matches target $fs!\n"; }
return 1;
}
}