summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-02-25 17:34:35 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-02-25 17:34:35 +0000
commitd7d9ad0c0eccd5b9ff687cafaaaa26c85d95fc9a (patch)
tree77c0a79743514953906854f3c01ebfd0cb145816 /perl.h
parent6f3cc9b8480ec4a90c106da77b8c428003fdfdb8 (diff)
parent50d2698546d7dba5ed48b29bf1c13887b041a4ba (diff)
downloadperl-d7d9ad0c0eccd5b9ff687cafaaaa26c85d95fc9a.tar.gz
Integrate perlio:
[ 8927] Change method names in Encode implementation classes to something less confusing (preparing to "go public"). [ 8926] GCC __atribute__ / printf fix [ 8925] Checked in the wrong one ... [ 8923] Encode API documentation nd tidy up. Minor additions to test. Tweaks sv_utf8_upgrade() to force SvPV, and always SvUTF8_on and return length. Adds STRLEN to standard typemap. p4raw-link: @8927 on //depot/perlio: 50d2698546d7dba5ed48b29bf1c13887b041a4ba p4raw-link: @8926 on //depot/perlio: c745e42cb33cb9fcfc4d47fe732cfa4725aa5d07 p4raw-link: @8925 on //depot/perlio: 2a936312a7ab627c98624c1ea83115246309b3d7 p4raw-link: @8923 on //depot/perlio: 4411f3b60960504e67715e05eb0ed3192bfff8fc p4raw-id: //depot/perl@8934
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index 1259f62693..a1ddcf0d02 100644
--- a/perl.h
+++ b/perl.h
@@ -2209,7 +2209,7 @@ struct ufuncs {
/* In pre-5.7-Perls the 'U' magic didn't get the thread context.
* XS code wanting to be backward compatible can do something
* like the following:
-
+
#ifndef PERL_MG_UFUNC
#define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv)
#endif
@@ -3332,8 +3332,12 @@ typedef struct am_table_short AMTS;
* Remap printf
*/
#undef printf
+#ifdef __GNUC__
+#define printf(fmt,args...) PerlIO_stdoutf(fmt,##args)
+#else
#define printf PerlIO_stdoutf
#endif
+#endif
/* if these never got defined, they need defaults */
#ifndef PERL_SET_CONTEXT