From 95e8cc14be89b95cfc596a0136573494f7ebebc1 Mon Sep 17 00:00:00 2001
From: petter <petter@d4fa192b-c00b-0410-8231-f00ffab90ce4>
Date: Fri, 20 Feb 2009 06:53:55 +0000
Subject: [PATCH] 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
---
 varnish-tools/webgui/Varnish/Management.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/varnish-tools/webgui/Varnish/Management.pm b/varnish-tools/webgui/Varnish/Management.pm
index 7574a4d6..9e3b2dc3 100644
--- 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;
-- 
2.39.5