Parent Directory | Revision Log
new filters
1 | #!/usr/bin/perl -w |
2 | |
3 | sub lang_swish { |
4 | my @out; |
5 | foreach my $v1 (@_) { |
6 | push @out,$v1; # save original |
7 | my $v2 = $v1; |
8 | $v2 =~ s/HRV/Hrvatski/gi; |
9 | push @out,$v2; # save modified version |
10 | } |
11 | return @out; |
12 | } |
13 | |
14 | 1; |
Name | Value |
---|---|
cvs2svn:cvs-rev | 1.1 |
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |