Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
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@lists.xenproject.org
https://lists.xenproject.org/mailman/listinfo/xen-devel
