X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F18-opinfo.t;h=70b5f746dfd731f8e9418e1202e6f3aebff73b2d;hb=78d307d30a1fa82e6b8e7ba95c617d9b87eb4d45;hp=4da06b9c40ff93fc78d8ebd2d609ad27b100b58b;hpb=de835bf83e502c2787cbf91fcd99d1961179f4d9;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 4da06b9..70b5f74 100644
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -13,8 +13,8 @@ sub Variable::Magic::TestPkg::foo { }
 
 my $is_5130_release = ("$]" == 5.013 && !$Config{git_describe}) ? 1 : 0;
 
-my $aelem     = "$]" <= 5.008003 ? 'aelem'
-                                 : ("$]" < 5.013 or $is_5130_release)
+my $aelem     = "$]" <= 5.008_003 ? 'aelem'
+                                  : ("$]" < 5.013 or $is_5130_release)
                                                    ? 'aelemfast'
                                                    : 'sassign';
 my $aelemf    = ("$]" < 5.013 or $is_5130_release) ? 'aelemfast' : 'sassign';