This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix prototypes of sv_vsetpvfn and sv_vcatpvfn:
authorAndreas König <a.koenig@mind.de>
Thu, 27 Nov 1997 17:18:53 +0000 (18:18 +0100)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Thu, 27 Nov 1997 16:57:33 +0000 (16:57 +0000)
Subject: Re: ANNOUNCE: perl 5.004_55 is available

p4raw-id: //depot/perl@323

sv.c

diff --git a/sv.c b/sv.c
index 649f623..381c943 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4099,14 +4099,14 @@ sv_catpvf(sv, pat, va_alist)
 }
 
 void
-sv_vsetpvfn(SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, char *used_locale)
+sv_vsetpvfn(SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, bool *used_locale)
 {
     sv_setpvn(sv, "", 0);
     sv_vcatpvfn(sv, pat, patlen, args, svargs, svmax, used_locale);
 }
 
 void
-sv_vcatpvfn(SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, char *used_locale)
+sv_vcatpvfn(SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, bool *used_locale)
 {
     dTHR;
     char *p;