From 78e524fb97be784617e9403b67a78af8bfccdcb0 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Tue, 13 Nov 2007 19:02:36 -0600
Subject: [PATCH] Context.pm extraneous variable removed.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Context.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/C4/Context.pm b/C4/Context.pm
index 34e8b17f00..3c9d9a4845 100644
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -187,11 +187,9 @@ Returns undef in case of error.
 
 =cut
 
-sub read_config_file {
-    my $fname = shift;    # Config file to read
-    my $retval = {};    # Return value: ref-to-hash holding the configuration
-    my $koha = XMLin($fname, keyattr => ['id'],forcearray => ['listen', 'server', 'serverinfo']);
-    return $koha;
+sub read_config_file {		# Pass argument naming config file to read
+    my $koha = XMLin(shift, keyattr => ['id'], forcearray => ['listen', 'server', 'serverinfo']);
+    return $koha;			# Return value: ref-to-hash holding the configuration
 }
 
 # db_scheme2dbi
-- 
2.39.5