Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Saturday, October 17, 2026
[BACK] [TXT][DIR] Up to [Platon] / iotta / Iotta / Format

Diff for iotta/Iotta/Format/Auto.pm between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:11 version 1.2, 2003/03/23 11:29:56
Line 11  sub run {
Line 11  sub run {
         $infmt =~ s/^(.)/$a = $1; $a =~ tr@a-z@A-Z@; $a/e;          $infmt =~ s/^(.)/$a = $1; $a =~ tr@a-z@A-Z@; $a/e;
         $infmt =~ s/[-_](.)/$a = $1; $a =~ tr@a-z@A-Z@; $a/ge;          $infmt =~ s/[-_](.)/$a = $1; $a =~ tr@a-z@A-Z@; $a/ge;
         $infmt =~ s/-/_/g;          $infmt =~ s/-/_/g;
         $fi=("Iotta::Format::In::".$infmt)->new; #FIXME          $fi = $s->chain->mod_inst("Iotta::Format::In::".$infmt); #FIXME?
         $fo=("Iotta::Format::Out::".$s->outfmt)->new;          $fo = $s->chain->mod_inst("Iotta::Format::Out::".$s->outfmt);
         $fi->next ($fo);          $fi->next ($fo);
         $fo->next ($s -> next);          $fo->next ($s -> next);
         #$s->next->run ($m, $out) if ($s->next);          #$s->next->run ($m, $out) if ($s->next);
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top