diff options
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Cwd/Cwd.xs | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/dist/Cwd/Cwd.xs b/dist/Cwd/Cwd.xs index e42a95f01b..6f8ae569e7 100644 --- a/dist/Cwd/Cwd.xs +++ b/dist/Cwd/Cwd.xs @@ -401,24 +401,16 @@ MODULE = Cwd PACKAGE = Cwd PROTOTYPES: ENABLE void -fastcwd() -PROTOTYPE: DISABLE -PPCODE: -{ - dXSTARG; - getcwd_sv(TARG); - XSprePUSH; PUSHTARG; -#ifndef INCOMPLETE_TAINTS - SvTAINTED_on(TARG); -#endif -} - -void getcwd(...) PROTOTYPE: DISABLE +ALIAS: + fastcwd=1 PPCODE: { dXSTARG; + /* fastcwd takes zero parameters: */ + if (ix == 1 && items != 0) + croak_xs_usage(cv, ""); getcwd_sv(TARG); XSprePUSH; PUSHTARG; #ifndef INCOMPLETE_TAINTS |