/[informatika.old]/sap.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /sap.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Mon Dec 11 10:18:14 2000 UTC revision 1.2 by dpavlin, Fri Jan 25 14:47:43 2002 UTC
# Line 38  sub initcap { Line 38  sub initcap {
38                  my $cu=substr($upper,$i,1);                  my $cu=substr($upper,$i,1);
39                  if ($i==0) {                  if ($i==0) {
40                          $new.=$cu;                          $new.=$cu;
41                  } elsif ($cl =~ / .-/) {                  } elsif ($cl =~ / \.-/) {
42                          $i++;                          $i++;
43                          $new.=$cl.substr($upper,$i,1);                          $new.=$cl.substr($upper,$i,1);
44                  } else {                  } else {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26