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 1c66ea7811bba36ce9baeb2fd2da2cd888a4a418..aeaf57210f2cb7a6b190e56c4c3f39a610ef50cb 100755 (executable)
--- 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 "...";