In Cwd.xs, swap to defaulting to disabled prototypes.
authorNicholas Clark <nick@ccl4.org>
Sat, 18 Jun 2011 14:34:50 +0000 (16:34 +0200)
committerNicholas Clark <nick@ccl4.org>
Wed, 22 Jun 2011 14:53:51 +0000 (16:53 +0200)
As only 1 function enables prototypes, it seems sensible to set the default to
the majority case.

dist/Cwd/Cwd.xs

index 6f8ae56..7263c09 100644 (file)
@@ -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;