Parent Directory | Revision Log
new filters
1 | dpavlin | 26 | #!/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 |