/[webpac]/branches/tehnika/filter/lang_swish.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /branches/tehnika/filter/lang_swish.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (hide annotations)
Sun Feb 23 07:02:55 2003 UTC (21 years, 1 month ago) by dpavlin
Original Path: trunk/filter/lang_swish.pm
File size: 211 byte(s)
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;

Properties

Name Value
cvs2svn:cvs-rev 1.1
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26