From fcfac16ca1db88f790d8b275cdc681c66d1dbf40 Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Fri, 16 Oct 2015 10:33:47 +0200
Subject: Save old input record separator

---
 Aufgabe2/skript3.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Aufgabe2/skript3.pl')

diff --git a/Aufgabe2/skript3.pl b/Aufgabe2/skript3.pl
index 367567d..648b4ba 100644
--- a/Aufgabe2/skript3.pl
+++ b/Aufgabe2/skript3.pl
@@ -29,6 +29,7 @@ binmode (STDIN, ":encoding(UTF-8)");
 use open ":encoding(UTF-8)";
 
 # suppress line reading
+my $old_INPUT_RECORD_SEPARATOR = $/;
 undef $INPUT_RECORD_SEPARATOR;
 
 my	$chapter_file_name = 'Stechlin-01.txt';		# input file name
-- 
cgit v1.2.3-70-g09d2