From eedc909b15c2d025ffaa16ed78f4e5230d004932 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 14 Mar 2007 21:06:48 +0000
Subject: * fixed non-local $/ in slurpFile()

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@770 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/Utils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm
index cb43c6ea..a6048621 100644
--- a/lib/OpenSLX/Utils.pm
+++ b/lib/OpenSLX/Utils.pm
@@ -73,7 +73,7 @@ sub slurpFile
 	if (!open(F, "< $file") && !$mayNotExist) {
 		die _tr("could not open file '%s' for reading! (%s)", $file, $!);
 	}
-	$/ = undef;
+	local $/ = undef;
 	my $text = <F>;
 	close(F);
 	return $text;
-- 
cgit v1.2.3-55-g7522