-------- Original Message --------
Subject: [rt.cpan.org #33765] Fix for 5.10
Date: Sun, 02 Mar 2008 20:10:56 -0500
From: Reini Urban via RT <[EMAIL PROTECTED]>
Reply-To: [EMAIL PROTECTED]
To: undisclosed-recipients:;
References: <[EMAIL PROTECTED]>
Sun Mar 02 20:10:54 2008: Request 33765 was acted upon.
Transaction: Ticket created by RURBAN
Queue: B-LexInfo
Subject: Fix for 5.10
Broken in: 0.02
Severity: Important
Owner: Nobody
Requestors: [EMAIL PROTECTED]
Status: new
Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=33765 >
Attached patch fixes 5.10 and blead compilation.
Also some minor doc errors.
--
Reini Urban
difforig
2008-03-03 Reini Urban <[EMAIL PROTECTED]>
diff -ub ./LexInfo.pm.orig
--- ./LexInfo.pm.orig 1999-06-29 04:44:50.000000000 +0000
+++ ./LexInfo.pm 2008-03-03 01:08:22.468750000 +0000
@@ -202,7 +202,7 @@
my($sv) = @_;
+{ NULL => sprintf "0x%lx", $$sv }
}
-
+
sub B::SPECIAL::lexval {
my($sv) = @_;
+{ SPECIAL => sprintf "0x%lx", $$sv }
@@ -218,8 +218,8 @@
=head1 SYNOPSIS
- use B::ShowLex ();
- my $lexi = B::ShowLex->new;
+ use B::LexInfo ();
+ my $lexi = B::LexInfo->new;
=head1 DESCRIPTION
diff -ub ./LexInfo.xs.orig
--- ./LexInfo.xs.orig 1999-06-28 07:41:44.000000000 +0000
+++ ./LexInfo.xs 2008-03-03 01:04:52.640625000 +0000
@@ -4,7 +4,7 @@
typedef SV * B__PV;
-static XS(XS_B__PV_LEN)
+XS(XS_B__PV_LEN)
{
dXSARGS;
if (items != 1)
@@ -15,7 +15,7 @@
if (SvROK(ST(0))) {
IV tmp = SvIV((SV*)SvRV(ST(0)));
- sv = (B__PV) tmp;
+ sv = INT2PTR(B__PV,tmp);
}
else
croak("sv is not a reference");
@@ -27,7 +27,7 @@
XSRETURN(1);
}
-static XS(XS_B__PV_CUR)
+XS(XS_B__PV_CUR)
{
dXSARGS;
if (items != 1)
@@ -38,7 +38,7 @@
if (SvROK(ST(0))) {
IV tmp = SvIV((SV*)SvRV(ST(0)));
- sv = (B__PV) tmp;
+ sv = INT2PTR(B__PV,tmp);
}
else
croak("sv is not a reference");
@@ -50,7 +50,7 @@
XSRETURN(1);
}
-static void boot_B_LexInfo(void)
+void boot_B_LexInfo(void)
{
/* these were not present in 5.005_57
* make conditional in case they are added
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
