diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-06-18 16:34:50 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-22 16:53:51 +0200 |
| commit | 1d0561d57fdbf1bfd047c3da2fda2b9dc4b86128 (patch) | |
| tree | ac245256f62fdbccc6679b0d1462af7c2a421f2b | |
| parent | 2cdb8b94c5c130c7088714a29804ced08a8e1d89 (diff) | |
| download | perl-1d0561d57fdbf1bfd047c3da2fda2b9dc4b86128.tar.gz | |
In Cwd.xs, swap to defaulting to disabled prototypes.
As only 1 function enables prototypes, it seems sensible to set the default to
the majority case.
| -rw-r--r-- | dist/Cwd/Cwd.xs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/dist/Cwd/Cwd.xs b/dist/Cwd/Cwd.xs index 6f8ae569e7..7263c09868 100644 --- a/dist/Cwd/Cwd.xs +++ b/dist/Cwd/Cwd.xs @@ -398,11 +398,10 @@ int Perl_getcwd_sv(pTHX_ register SV *sv) MODULE = Cwd PACKAGE = Cwd -PROTOTYPES: ENABLE +PROTOTYPES: DISABLE void getcwd(...) -PROTOTYPE: DISABLE ALIAS: fastcwd=1 PPCODE: @@ -421,7 +420,6 @@ PPCODE: void abs_path(pathsv=Nullsv) SV *pathsv -PROTOTYPE: DISABLE PPCODE: { dXSTARG; @@ -452,6 +450,7 @@ PPCODE: void getdcwd(...) +PROTOTYPE: ENABLE PPCODE: { dXSTARG; |