Parent Directory | Revision Log | Patch
revision 41 by dpavlin, Sun Feb 23 07:02:55 2003 UTC | revision 42 by dpavlin, Sat Mar 15 21:48:48 2003 UTC | |
---|---|---|
# | Line 6 sub isn_swish { | Line 6 sub isn_swish { |
6 | my @out; | my @out; |
7 | foreach my $nr1 (@_) { | foreach my $nr1 (@_) { |
8 | push @out,$nr1; # save original | push @out,$nr1; # save original |
9 | my $nr2 = $nr1; | $nr1 =~ s/\-//g; |
10 | $nr2 =~ s/\-//g; | push @out,$nr1; # save version without hyphens |
push @out,$nr2; # save version without hyphens | ||
11 | } | } |
12 | return @out; | return @out; |
13 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |