From 143d6b02b54186c9852429778ce017515318a493 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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