Rozdiely pre iotta/Iotta/Format/Auto.pm medzi verziami 1.1 a 1.2
verzia 1.1, 2003/02/16 15:48:11 |
verzia 1.2, 2003/03/23 11:29:56 |
|
|
$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); |
Platon Group <platon@platon.sk> http://platon.sk/
|
|