From 98bac3b3a8b47e0907b454c9b88b0cdc66ce0bbb Mon Sep 17 00:00:00 2001
From: Dirk von Suchodoletz
Date: Wed, 28 Jan 2009 12:43:40 +0000
Subject: Avoid interpretation of shell script variables by perl.

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2536 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 os-plugins/plugins/qemukvm/OpenSLX/Distro/Base.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'os-plugins/plugins')

diff --git a/os-plugins/plugins/qemukvm/OpenSLX/Distro/Base.pm b/os-plugins/plugins/qemukvm/OpenSLX/Distro/Base.pm
index 603942a2..970a6379 100644
--- a/os-plugins/plugins/qemukvm/OpenSLX/Distro/Base.pm
+++ b/os-plugins/plugins/qemukvm/OpenSLX/Distro/Base.pm
@@ -46,7 +46,7 @@ sub fillRunlevelScript
     my $location = shift;
     my $kind     = shift;
 
-    my $script = unshiftHereDoc(<<"    End-of-Here");
+    my $script = unshiftHereDoc(<<'    End-of-Here');
 
     # cpuvirt=$(grep -e "vmx|svm" /proc/cpuinfo)
     # modprobe $cpuvirt
-- 
cgit v1.2.3-55-g7522