[Xen-devel] [OSSTEST PATCH 1/8] cr-ensure-disk-space: With -D, print check_space command

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 cr-ensure-disk-space | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index 7091314..3e0288f 100755
--- 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>;
-- 
2.1.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel