Commits

Shlomi Fish  committed 677ae69

IO::All.

  • Participants
  • Parent commits 8f40524

Comments (0)

Files changed (1)

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

     # Regular named files may be present somewhere inside the ./src
     # directory for all we know.
     mkdir ("$src_dir_name/.quadpres");
-    open O, ">$src_dir_name/.quadpres/is_root";
-    print O "";
-    close(O);
+    io->file("$src_dir_name/.quadpres/is_root")->print('');
 
     print "Successfully Created $src_dir_name\n";