From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 29 Oct 2003 22:53:43 +0000 (+0100)
Subject: Devel::PPPort and scan_bin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1c015366f49a0a7c449c36982688a5337254910;p=p5sagit%2Fp5-mst-13.2.git

Devel::PPPort and scan_bin
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <037201c39e67$1faa9940$0c2f1fac@R2D2>

p4raw-id: //depot/perl@21588
---

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 40eed15..23f43a2 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) {