diff options
author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-10-29 23:53:43 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2003-11-02 22:22:34 +0000 |
commit | 6f6d5b1031f26ddb5649f912bd731b6ae14ae996 (patch) | |
tree | ef782048bc84b034192f4cee62b0073b9487442b | |
parent | 84575791381496d9f38c78835bc855a9e3e73275 (diff) | |
download | perl-6f6d5b1031f26ddb5649f912bd731b6ae14ae996.tar.gz |
Integrate:
[ 21588]
Subject: [PATCH] Devel::PPPort and scan_bin
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <037201c39e67$1faa9940$0c2f1fac@R2D2>
p4raw-link: @21588 on //depot/perl: b1c015366f49a0a7c449c36982688a5337254910
p4raw-id: //depot/maint-5.8/perl@21633
p4raw-integrated: from //depot/perl@21632 'copy in'
ext/Devel/PPPort/PPPort.pm (@21506..)
-rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm index 40eed15796..23f43a2608 100644 --- a/ext/Devel/PPPort/PPPort.pm +++ b/ext/Devel/PPPort/PPPort.pm @@ -159,7 +159,7 @@ require DynaLoader; use strict; use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $data ); -$VERSION = "2.008"; +$VERSION = "2.009"; @ISA = qw(Exporter DynaLoader); @EXPORT = qw(); @@ -846,7 +846,7 @@ static UV _grok_oct (char *string, STRLEN *len, I32 *flags, NV *result) { _grok_oct((string), (len), (flags), (result)) #endif -#ifndef grok_bin +#if !defined(grok_bin) && defined(scan_bin) static UV _grok_bin (char *string, STRLEN *len, I32 *flags, NV *result) { NV r = scan_bin(string, *len, I32_CAST len); if (r > UV_MAX) { |