Commits

Shlomi Fish committed 79e0ddc

Made perlcritic happy in CGI.pm.

Comments (0)

Files changed (1)

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

 
 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('-');
 }
 }
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.