--- trunk/filter/isn_swish.pm 2003/02/23 07:02:55 26 +++ branches/tehnika/filter/isn_swish.pm 2004/03/12 15:33:13 264 @@ -6,9 +6,8 @@ my @out; foreach my $nr1 (@_) { push @out,$nr1; # save original - my $nr2 = $nr1; - $nr2 =~ s/\-//g; - push @out,$nr2; # save version without hyphens + $nr1 =~ s/\-//g; + push @out,$nr1; # save version without hyphens } return @out; }