From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Mon, 9 Mar 2015 15:50:33 +0000 (-0400)
Subject: cr-ensure-disk-space: Emacs perl-mode syntax workaround
X-Git-Tag: wip.libvirt-v3-base~265
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=d8b13ac4deb08a404445e56b48bc310483dea008;p=people%2Fliuw%2Fosstest.git

cr-ensure-disk-space: Emacs perl-mode syntax workaround

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

diff --git a/cr-ensure-disk-space b/cr-ensure-disk-space
index 1c66ea7..aeaf572 100755
--- a/cr-ensure-disk-space
+++ b/cr-ensure-disk-space
@@ -84,7 +84,7 @@ for (;;) {
     die "age $age" if $age < $c{LogsMinExpireAge};
 
     $c{LogsPublish} =~ m/\:/ or die "$c{LogsPublish} ?";
-    my ($pubhost, $pubdir) = ($`,$');
+    my ($pubhost, $pubdir) = ($`,$'); #';
 
     printf "...";