From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 21 Jan 2002 14:29:05 +0000 (+0000)
Subject: path_is_absolute() needs a prototype (and maybe
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf42f822f042b255cd800a089b942e14770a2b0b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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)