summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>2005-01-05 11:55:09 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-01-07 13:41:47 +0000
commit5df617be18e4372550725f3369e8e3fd641cce19 (patch)
tree172282af6bdb14d16cc4b3478ec7bb6ea532dc14 /perl.h
parent7a5fd60d4ce737f71e7a689eaa2061a36dd225dc (diff)
downloadperl-5df617be18e4372550725f3369e8e3fd641cce19.tar.gz
to improve -DCHECK_FORMAT
Message-ID: <533D273D4014D411AB1D00062938C4D90849C55A@hotel.npl.co.uk> p4raw-id: //depot/perl@23767
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl.h b/perl.h
index 4bcf22970d..06e8a136d0 100644
--- a/perl.h
+++ b/perl.h
@@ -2392,9 +2392,9 @@ typedef pthread_key_t perl_key;
#ifndef SVf
# ifdef CHECK_FORMAT
-# define SVf "p"
+# define SVf "-p"
# ifndef SVf256
-# define SVf256 SVf
+# define SVf256 "-256p"
# endif
# else
# define SVf "_"
@@ -2415,17 +2415,17 @@ typedef pthread_key_t perl_key;
#ifndef VDf
# ifdef CHECK_FORMAT
-# define VDf "p"
+# define VDf "-1p"
# else
# define VDf "vd"
# endif
#endif
-#ifndef Nullformat
+#ifndef DieNull
# ifdef CHECK_FORMAT
-# define Nullformat "%s",""
+# define DieNull vdie(aTHX_ Nullch, Null(va_list *))
# else
-# define Nullformat Nullch
+# define DieNull Perl_die(aTHX_ Nullch)
# endif
#endif