cr-ensure-disk-space: With -D, print check_space command

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index 709131480c12361969d9402395ca69e1327acd88..3e0288f95d02d9a0ba356d604764b248952a684a 100755 (executable)
--- a/cr-ensure-disk-space
+++ b/cr-ensure-disk-space
@@ -25,6 +25,7 @@ BEGIN { unshift @INC, qw(.); }
 use Osstest;
 use Osstest::Management qw(:logs);
 use Fcntl qw(:flock);
+use Data::Dumper;
 
 our $dryrun= 0;
 our $force;
@@ -56,7 +57,9 @@ csreadconfig();
 logs_select $cfgbase or exit 0;
 
 sub check_space () {
-    open P, "-|", onloghost "df --block-size=1M -P $logdir" or die $!;
+    my @cmd = onloghost "df --block-size=1M -P $logdir";
+    print DEBUG "check_space: ", Dumper(\@cmd);
+    open P, "-|", @cmd or die $!;
     $_= <P>;
     m/^filesystem/i or die "$_ ?";
     $_= <P>;