bugfix: remove references to global $debug (not implemented yet) and $rhost (not applicable in sanoid)
This commit is contained in:
parent
97382ed9d8
commit
75e7f54128
8
sanoid
8
sanoid
|
@ -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;
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue