1#!/usr/bin/env perl -w 2 3# Inform the user early and clearly that their Perl is broken beyond redemption 4 5use strict; 6use warnings; 7 8use lib 't/lib'; 9 10use Test::More tests => 1; 11 12note "The 0.01 / Gconvert bug"; { 13 my $number = 0.01; 14 my $string = "VERSION=$number"; 15 16 is "VERSION=$number", "VERSION=0.01" or do { 17 diag <<END; 18Sorry, but your perl's ability to translate decimal numbers to strings 19is broken. You should probably recompile it with -Dd_Gconvert=sprintf 20or upgrade to a newer version of Perl. 21END 22 }; 23} 24