Syntax-Fehler in SL/Form.pm

Hier gab es einen kleinen Syntax-Fehler, der sich allerdings nicht
auf die Funktionalität ausgewirkt hat.

diff --git a/SL/Form.pm b/SL/Form.pm
index 07702fbfc3acb68b331182fe7209dd853915d5ba..81727ed23f55f6d6513eddd0c2f48bded4ffa8e7 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1645,7 +1645,6 @@ sub get_all_currencies {
   my $self     = shift;
   my $myconfig = shift || \%::myconfig;
   my $dbh      = $self->get_standard_dbh($myconfig);
-  my @currencies =();
 
   my $query = qq|SELECT name FROM currencies|;
   my @currencies = map { $_->{name} } selectall_hashref_query($self, $dbh, $query);