X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/82d241d9ab73fe9dfda7caac776a9c364036ca44..08e42c5d48a0c2b27b6f12e75548c8f266e9b0c8:/t/Support/Systemexec.pm

diff --git a/t/Support/Systemexec.pm b/t/Support/Systemexec.pm
index 676ee02a4..eefc52c71 100644
--- 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;