path_is_absolute() needs a prototype (and maybe

a better name, but that's another story).

p4raw-id: //depot/perl@14367

diff --git a/embed.fnc b/embed.fnc
index cb5dcd4..9cf223e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1077,6 +1077,7 @@ s |I32    |dopoptosub_at  |PERL_CONTEXT* cxstk|I32 startingblock
 s      |void   |save_lines     |AV *array|SV *sv
 s      |OP*    |doeval         |int gimme|OP** startop
 s      |PerlIO *|doopen_pmc    |const char *name|const char *mode
+s      |bool   |path_is_absolute|char *name
 #endif
 
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)

diff --git a/embed.h b/embed.h
index a2fbb67..49ca595 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1001,6 +1001,7 @@
 #define save_lines             S_save_lines
 #define doeval                 S_doeval
 #define doopen_pmc             S_doopen_pmc
+#define path_is_absolute       S_path_is_absolute
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 #define do_maybe_phash         S_do_maybe_phash
@@ -2546,6 +2547,7 @@
 #define save_lines(a,b)                S_save_lines(aTHX_ a,b)
 #define doeval(a,b)            S_doeval(aTHX_ a,b)
 #define doopen_pmc(a,b)                S_doopen_pmc(aTHX_ a,b)
+#define path_is_absolute(a)    S_path_is_absolute(aTHX_ a)
 #endif
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
 #define do_maybe_phash(a,b,c,d,e)      S_do_maybe_phash(aTHX_ a,b,c,d,e)

diff --git a/pp_ctl.c b/pp_ctl.c
index a7736e3..8805316 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3692,8 +3692,8 @@ run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen)
 
 /* perhaps someone can come up with a better name for
    this?  it is not really "absolute", per se ... */
-bool
-path_is_absolute(char *name)
+static bool
+S_path_is_absolute(pTHX_ char *name)
 {
     if (PERL_FILE_IS_ABSOLUTE(name)
 #ifdef MACOS_TRADITIONAL

diff --git a/proto.h b/proto.h
index b93bb2c..1e1888f 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1112,6 +1112,7 @@ STATIC I32        S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock);
 STATIC void    S_save_lines(pTHX_ AV *array, SV *sv);
 STATIC OP*     S_doeval(pTHX_ int gimme, OP** startop);
 STATIC PerlIO *        S_doopen_pmc(pTHX_ const char *name, const char *mode);
+STATIC bool    S_path_is_absolute(pTHX_ char *name);
 #endif
 
 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)