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;
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
25done_testing;
26