X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/91bbaadd9be01ec1401a953147119791da7daa9e..804893ae520f82feba9a736d7d1a857699b48acf:/SL/SessionFile.pm

diff --git a/SL/SessionFile.pm b/SL/SessionFile.pm
index dbed4154b..69997e9a1 100644
--- a/SL/SessionFile.pm
+++ b/SL/SessionFile.pm
@@ -95,7 +95,7 @@ destroyed or expires
   use SL::SessionFile;
 
   # Create a session file named "customer.csv" (relative names only)
-  my $sfile = SL::SessionFile->new("customer.csv", "w");
+  my $sfile = SL::SessionFile->new('customer.csv', mode => 'w');
   $sfile->fh->print("col1;col2;col3\n" .
                     "value1;value2;value3\n");
   $sfile->fh->close;