Alle 2-arg open in 3-arg open verwandelt.

[kivitendo-erp.git] / t / Support / Systemexec.pm

diff --git a/t/Support/Systemexec.pm b/t/Support/Systemexec.pm
index 676ee02..eefc52c 100644 (file)
--- a/t/Support/Systemexec.pm
+++ b/t/Support/Systemexec.pm
@@ -3,7 +3,7 @@
 package Support::Systemexec;
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw(system exec);
+@EXPORT = qw(system exec open);
 @EXPORT_OK = qw();
 sub system($$@) {
   1;
@@ -11,4 +11,7 @@ sub system($$@) {
 sub exec($$@) {
   1;
 }
+sub open(*$$@) {
+  1;
+}
 1;