summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
Diffstat (limited to 'ext')
-rw-r--r--ext/Data/Dumper/Dumper.xs7
-rw-r--r--ext/Devel/DProf/Changes9
-rw-r--r--ext/Devel/DProf/DProf.pm2
-rw-r--r--ext/Devel/DProf/DProf.xs11
-rw-r--r--ext/Devel/DProf/Makefile.PL4
-rw-r--r--ext/Devel/PPPort/PPPort.pm5
-rw-r--r--ext/Digest/MD5/MD5.xs5
-rw-r--r--ext/Digest/MD5/t/files.t6
-rw-r--r--ext/Encode/MANIFEST1
-rw-r--r--ext/List/Util/Util.xs5
-rw-r--r--ext/Storable/Storable.xs3
-rw-r--r--ext/re/Makefile.PL2
12 files changed, 49 insertions, 11 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index 6c9459e486..8bf9f75282 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -4,8 +4,11 @@
#include "XSUB.h"
#ifndef PERL_VERSION
-#include "patchlevel.h"
-#define PERL_VERSION PATCHLEVEL
+# include <patchlevel.h>
+# ifndef PERL_VERSION
+# include <could_not_find_Perl_patchlevel.h>
+# endif
+# define PERL_VERSION PATCHLEVEL
#endif
#if PERL_VERSION < 5
diff --git a/ext/Devel/DProf/Changes b/ext/Devel/DProf/Changes
index 216498ba62..09b2250dc2 100644
--- a/ext/Devel/DProf/Changes
+++ b/ext/Devel/DProf/Changes
@@ -1,3 +1,12 @@
+2003 Jan 8
+
+ Blair Zajac:
+ DProf.xs:
+ - To avoid core dumps, increase stack size by 10 instead of 5.
+ - Assert that g_profstack is large enough when DEBUGGING is defined
+ DProf.pm:
+ - Bump VERSION.
+
1999 Jan 8
Ilya Zakharevich:
diff --git a/ext/Devel/DProf/DProf.pm b/ext/Devel/DProf/DProf.pm
index d5d8a82a51..15fc93a34b 100644
--- a/ext/Devel/DProf/DProf.pm
+++ b/ext/Devel/DProf/DProf.pm
@@ -188,7 +188,7 @@ sub DB {
use XSLoader ();
# Underscore to allow older Perls to access older version from CPAN
-$Devel::DProf::VERSION = '20000000.00_01'; # this version not authorized by
+$Devel::DProf::VERSION = '20030108.00_00'; # this version not authorized by
# Dean Roehrich. See "Changes" file.
XSLoader::load 'Devel::DProf', $Devel::DProf::VERSION;
diff --git a/ext/Devel/DProf/DProf.xs b/ext/Devel/DProf/DProf.xs
index 78ea3c9e56..caa07293c1 100644
--- a/ext/Devel/DProf/DProf.xs
+++ b/ext/Devel/DProf/DProf.xs
@@ -9,6 +9,12 @@
/* define DBG_TIMER to cause a warning when the timer is turned on and off. */
/*#define DBG_TIMER 1 */
+#ifdef DEBUGGING
+#define ASSERT(x) assert(x)
+#else
+#define ASSERT(x)
+#endif
+
#ifdef DBG_SUB
# define DBG_SUB_NOTIFY(A) dprof_dbg_sub_notify(A)
void
@@ -297,7 +303,7 @@ prof_mark(pTHX_ opcode ptype)
SV *Sub = GvSV(PL_DBsub); /* name of current sub */
if (g_SAVE_STACK) {
- if (g_profstack_ix + 5 > g_profstack_max) {
+ if (g_profstack_ix + 10 > g_profstack_max) {
g_profstack_max = g_profstack_max * 3 / 2;
Renew(g_profstack, g_profstack_max, PROFANY);
}
@@ -309,6 +315,7 @@ prof_mark(pTHX_ opcode ptype)
sdelta = t.tms_stime - g_otms_stime;
if (rdelta || udelta || sdelta) {
if (g_SAVE_STACK) {
+ ASSERT(g_profstack_ix + 4 <= g_profstack_max);
g_profstack[g_profstack_ix++].ptype = OP_TIME;
g_profstack[g_profstack_ix++].tms_utime = udelta;
g_profstack[g_profstack_ix++].tms_stime = sdelta;
@@ -343,6 +350,7 @@ prof_mark(pTHX_ opcode ptype)
if (CvXSUB(cv) == XS_Devel__DProf_END)
return;
if (g_SAVE_STACK) { /* Store it for later recording -JH */
+ ASSERT(g_profstack_ix + 4 <= g_profstack_max);
g_profstack[g_profstack_ix++].ptype = OP_GV;
g_profstack[g_profstack_ix++].id = id;
g_profstack[g_profstack_ix++].name = pname;
@@ -365,6 +373,7 @@ prof_mark(pTHX_ opcode ptype)
g_total++;
if (g_SAVE_STACK) { /* Store it for later recording -JH */
+ ASSERT(g_profstack_ix + 2 <= g_profstack_max);
g_profstack[g_profstack_ix++].ptype = ptype;
g_profstack[g_profstack_ix++].id = id;
diff --git a/ext/Devel/DProf/Makefile.PL b/ext/Devel/DProf/Makefile.PL
index 667cc52913..b3eb6c5cdc 100644
--- a/ext/Devel/DProf/Makefile.PL
+++ b/ext/Devel/DProf/Makefile.PL
@@ -1,3 +1,7 @@
+BEGIN {
+ require 5.006;
+}
+
use ExtUtils::MakeMaker;
WriteMakefile(
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index b426fd20ab..5f57ac6950 100644
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -355,7 +355,10 @@ __DATA__
#ifndef PERL_REVISION
# ifndef __PATCHLEVEL_H_INCLUDED__
-# include "patchlevel.h"
+# include <patchlevel.h>
+# endif
+# ifndef PERL_VERSION
+# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs
index abc1748044..b1f2a04cdf 100644
--- a/ext/Digest/MD5/MD5.xs
+++ b/ext/Digest/MD5/MD5.xs
@@ -44,7 +44,10 @@ extern "C" {
}
#endif
-#include "patchlevel.h"
+#include <patchlevel.h>
+#ifndef PERL_VERSION
+# include <could_not_find_Perl_patchlevel.h>
+#endif
#if PATCHLEVEL <= 4 && !defined(PL_dowarn)
#define PL_dowarn dowarn
#endif
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t
index 6351af525b..a1d567bd3b 100644
--- a/ext/Digest/MD5/t/files.t
+++ b/ext/Digest/MD5/t/files.t
@@ -23,7 +23,7 @@ if (ord "A" == 193) { # EBCDIC
ed8efe2e2dbab62fcc9dea2df6682569 Changes
0565ec21b15c0f23f4c51fb327c8926d README
0fcdd6d6e33b8772bd4b4832043035cd MD5.pm
-d7fd24455b9160aa8706635d15e6177e MD5.xs
+4757a101ad5df97136a2fa8e910d9d6a MD5.xs
276da0aa4e9a08b7fe09430c9c5690aa rfc1321.txt
EOT
} elsif ("\n" eq "\015") { # MacOS
@@ -31,7 +31,7 @@ EOT
2879619f967d5fc5a00ffe37b639f2ee Changes
6c950a0211a5a28f023bb482037698cd README
4e1043f0a7a266416d8408d6fa96f454 MD5.pm
-6bff95ff70ba43a6c81e255c6510a865 MD5.xs
+fc1b8007a6f5262561a0a76493759a55 MD5.xs
754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
EOT
} else {
@@ -40,7 +40,7 @@ EOT
2879619f967d5fc5a00ffe37b639f2ee Changes
6c950a0211a5a28f023bb482037698cd README
4e1043f0a7a266416d8408d6fa96f454 MD5.pm
-6bff95ff70ba43a6c81e255c6510a865 MD5.xs
+fc1b8007a6f5262561a0a76493759a55 MD5.xs
754b9db19f79dbc4992f7166eb0f37ce rfc1321.txt
EOT
}
diff --git a/ext/Encode/MANIFEST b/ext/Encode/MANIFEST
index cb4a0d8fe7..4a8992ef01 100644
--- a/ext/Encode/MANIFEST
+++ b/ext/Encode/MANIFEST
@@ -61,6 +61,7 @@ t/big5-eten.enc test data
t/big5-eten.utf test data
t/big5-hkscs.enc test data
t/big5-hkscs.utf test data
+t/enc_eucjp.t test script
t/enc_utf8.t test script
t/encoding.t test script
t/fallback.t test script
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index f96b45162b..db9ce1571a 100644
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -8,7 +8,10 @@
#include <XSUB.h>
#ifndef PERL_VERSION
-# include "patchlevel.h"
+# include <patchlevel.h>
+# ifndef PERL_VERSION
+# include <could_not_find_Perl_patchlevel.h>
+# endif
# define PERL_REVISION 5
# define PERL_VERSION PATCHLEVEL
# define PERL_SUBVERSION SUBVERSION
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 9c307a7fad..e59914acb3 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -11,6 +11,9 @@
#include <EXTERN.h>
#include <perl.h>
#include <patchlevel.h> /* Perl's one, needed since 5.6 */
+#ifndef PERL_VERSION
+# include <could_not_find_Perl_patchlevel.h>
+#endif
#include <XSUB.h>
#ifndef NETWARE
diff --git a/ext/re/Makefile.PL b/ext/re/Makefile.PL
index 51573af05c..f00f4122dd 100644
--- a/ext/re/Makefile.PL
+++ b/ext/re/Makefile.PL
@@ -4,7 +4,7 @@ use Config;
my $object = 're_exec$(OBJ_EXT) re_comp$(OBJ_EXT) re$(OBJ_EXT)';
-my $defines = '-DPERL_EXT_RE_BUILD -DPERL_EXT_RE_DEBUG';
+my $defines = '-DPERL_EXT_RE_BUILD -DPERL_EXT_RE_DEBUG -DPERL_EXT';
WriteMakefile(
NAME => 're',
View Lorry Controller Status