1. Shlomi Fish
  2. Quad-Pres

Commits

Shlomi Fish  committed 79e0ddc

Made perlcritic happy in CGI.pm.

  • Participants
  • Parent commits cd23a01
  • Branches default

Comments (0)

Files changed (1)

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

View file
 
 use MIME::Types;
 
+use IO::All;
+
 use POSIX;
 
 use English;
             {
                 if (!mkdir($dest_dir_path))
                 {
-                    open I, "./src/$file_path";
-                    print join("", <I>);
-                    close(I);
+                    io->("./src/$file_path") > io('-');
                     exit;
                 }
             }
         }
         # if (-w "$dest_dir/$file_path")
-        {
-            open I, "./src/$file_path";
-            open O, ">$dest_dir/$file_path";
-            print O join("", <I>);
-            close(I);
-            close(O);
-            # my_chown("$dest_dir/$file_path");
-        }
+        io("./src/$file_path") > "$dest_dir/$file_path";
     }
-    open I, "$dest_dir/$file_path";
-    print join("", <I>);
-    close(I);
+    io("$dest_dir/$file_path") > io('-');
 }
 else
 {
             # my_chown("$dest_dir/$file_path");
         };
     }
-    open I, "$dest_dir/$file_path";
-    print join("", <I>);
-    close(I);
+    io( "$dest_dir/$file_path") > io('-');
 }
 }