From 78e524fb97be784617e9403b67a78af8bfccdcb0 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Tue, 13 Nov 2007 19:02:36 -0600 Subject: [PATCH] Context.pm extraneous variable removed. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- 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