From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 2 Aug 1999 11:42:14 +0000 (+0000)
Subject: Enhance the description of how to detect quad support.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=464650678f8afe6a6286059864c15b9455f90a42;p=p5sagit%2Fp5-mst-13.2.git

Enhance the description of how to detect quad support.

p4raw-id: //depot/cfgperl@3883
---

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 2534665..aa55e3e 100644
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -4128,10 +4128,11 @@ For example
 
 	%lld %16LX %qo
 
-You can find out whether your Perl supports long doubles via L<Config>:
+You can find out whether your Perl supports quads via L<Config>:
 
 	use Config;
-	$Config{use64bits} and print "quads\n";
+	($Config{use64bits} eq 'define' || $Config{longsize} == 8) &&
+		print "quads\n";
 
 If Perl understands "long doubles" (this requires that the platform
 supports long doubles), the flags
@@ -4149,7 +4150,7 @@ For example
 You can find out whether your Perl supports long doubles via L<Config>:
 
 	use Config;
-	$Config{d_longdbl} and print "long doubles\n";
+	$Config{d_longdbl} eq 'define' && print "long doubles\n";
 
 =item sqrt EXPR