Forgot to escape \ when sending VCL to management port

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@3789 d4fa192b-c00b-0410-8231-f00ffab90ce4

diff --git a/varnish-tools/webgui/Varnish/Management.pm b/varnish-tools/webgui/Varnish/Management.pm
index 7574a4d621c62bbc2654aaff7efa6a2b8e820791..9e3b2dc37e9cf614cbe9233b76f9966a63fb128a 100644 (file)
--- a/varnish-tools/webgui/Varnish/Management.pm
+++ b/varnish-tools/webgui/Varnish/Management.pm
@@ -155,6 +155,7 @@ use Varnish::Util qw(set_error get_error no_error);
 
        sub set_vcl {
                my ($self, $vcl_name, $vcl) = @_;
+               $vcl =~ s/\\/\\\\/g;
                $vcl =~ s/"/\\"/g;
                $vcl =~ s/\r//g;
                $vcl =~ s/\n/\\n/g;