From 143d6b02b54186c9852429778ce017515318a493 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 13 Sep 2016 14:59:23 +0200
Subject: add Cwd fake package

---
 fake_packages/Cwd.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 fake_packages/Cwd.pm

(limited to 'fake_packages')

diff --git a/fake_packages/Cwd.pm b/fake_packages/Cwd.pm
new file mode 100644
index 0000000..69edad3
--- /dev/null
+++ b/fake_packages/Cwd.pm
@@ -0,0 +1,28 @@
+
+package Cwd;
+our @ISA = qw();
+sub CLONE { my (@_more_paras) = @_ }
+sub _backtick_pwd() {}
+sub _carp() {}
+sub _croak() {}
+sub _dos_cwd() {}
+sub _epoc_cwd() {}
+sub _os2_cwd() {}
+sub _perl_abs_path { my ($_o_start) = @_ }
+sub _perl_getcwd() {}
+sub _qnx_abs_path { my ($_o_path) = @_ }
+sub _qnx_cwd() {}
+sub _vms_abs_path() {}
+sub _vms_cwd() {}
+sub _vms_efs() {}
+sub _vms_unix_rpt() {}
+sub _win32_cwd() {}
+sub _win32_cwd_simple() {}
+sub abs_path { my ($_o_pathsv) = @_ }
+sub chdir { my ($_o_newdir) = @_ }
+sub chdir_init() {}
+sub fast_abs_path { my ($_o_path) = @_ }
+sub fastcwd { my (@_more_paras) = @_ }
+sub fastcwd_() {}
+sub getcwd { my (@_more_paras) = @_ }
+sub getdcwd { my (@_more_paras) = @_ }
-- 
cgit v1.2.1