Commits

Shlomi Fish  committed 8f40524

Convert to IO::All.

  • Participants
  • Parent commits 2a66ae3

Comments (0)

Files changed (1)

File installer/perl5/Shlomif/Quad/Pres/CmdLine.pm

                 mkdir($dir_name);
             }
 
-            open I, "<template.html.wml";
-            open O, (">" . $src_filename);
-            binmode(I);
-            binmode(O);
-            print O join("", <I>);
-            close(O);
-            close(I);
+            io->file("template.html.wml") > io->file($src_filename);
         }
 
         {