diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-10-29 23:53:43 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-31 19:25:38 +0000 |
| commit | b1c015366f49a0a7c449c36982688a5337254910 (patch) | |
| tree | 62c294004784041cc6daddfc109a18a5bb5bdd2e /ext/Devel | |
| parent | ee950a0c9a9d3ecf5257e0b7b480b83676106a22 (diff) | |
| download | perl-b1c015366f49a0a7c449c36982688a5337254910.tar.gz | |
Devel::PPPort and scan_bin
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <037201c39e67$1faa9940$0c2f1fac@R2D2>
p4raw-id: //depot/perl@21588
Diffstat (limited to 'ext/Devel')
| -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) { |