@@ -, +, @@ --- C4/Auth.pm | 11 ++++++----- 1 files changed, 6 insertions(+), 5 deletions(-) --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -18,7 +18,7 @@ package C4::Auth; # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; -#use warnings; FIXME - Bug 2505 +use warnings; use Digest::MD5 qw(md5_base64); use Storable qw(thaw freeze); use URI::Escape; @@ -129,6 +129,7 @@ my $SEARCH_HISTORY_INSERT_SQL =<>/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog"; - printf L join("\n",@_); - close L; + open my $fh, '>>', "/tmp/sessionlog" or warn "ERROR: Cannot append to /tmp/sessionlog"; + printf $fh join("\n",@_); + close $fh; } sub checkauth { --