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

Diff for iotta/Iotta/Output/File.pm between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:12 version 1.2, 2003/03/30 11:33:57
Line 10  sub run {
Line 10  sub run {
         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;
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