From facf2051df510d1dfb38aa3aaa337e01f7c564f0 Mon Sep 17 00:00:00 2001
From: pontus_pih <pontus_pih>
Date: Mon, 19 Mar 2007 15:51:23 +0000
Subject: [PATCH] Merged bugfix from serial_patches branch

---
 lib/model/problem/init_record_subs.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/model/problem/init_record_subs.pm b/lib/model/problem/init_record_subs.pm
index 5559c5a..30b1ea9 100644
--- a/lib/model/problem/init_record_subs.pm
+++ b/lib/model/problem/init_record_subs.pm
@@ -158,6 +158,7 @@ start _read_options
 	      $self -> {'same'}  = 1         if s/SAME//;
 	      push ( @inits, $_ );
 	      my ( $line, $line_comment ) = split( ";", $_, 2 );
+	      $_ = $line;
 	      while( s/\(([\w ]*)\)// ) {
 		# We should (if the file is correctly formatted) only
 		# find parentheses if the record is NOT of a BLOCK()
-- 
2.11.4.GIT