Rozdiely pre iotta/Iotta/Output/File.pm medzi verziami 1.1 a 1.2
| verzia 1.1, 2003/02/16 15:48:12 |
verzia 1.2, 2003/03/30 11:33:57 |
|
|
| my $file = $$meta{output}; |
my $file = $$meta{output}; |
| my $dir = $file; |
my $dir = $file; |
| $dir =~ s#^(.*)/.*?$#$1#; |
$dir =~ s#^(.*)/.*?$#$1#; |
| mkdirp ($dir); |
mkdirp ($dir) if $file =~ /\//; |
| #$file =~ $s->transform; |
#$file =~ $s->transform; |
| print STDERR " writing ($file)...\n"; |
print STDERR " writing ($file)...\n"; |
| open (FILE, ">$file") || return 1; |
open (FILE, ">$file") || return 1; |
Platon Group <platon@platon.sk> http://platon.sk/
|
|
Prihlásiť
Registrácia
English
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Vyššie na