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 07702fb..81727ed 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);