X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=blobdiff_plain;f=lib%2FB%2FRecDeparse.pm;h=7395ebb11eb17552ebe95c399ee5387ad38a186e;hp=4df9dffb441b183da5acd8a67e64507b6e6f3d76;hb=2a89a09b955be5161f63b93baf04d097f8534075;hpb=2ed72daef30e77181180b933f64351ec49cc5945 diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm index 4df9dff..7395ebb 100644 --- a/lib/B/RecDeparse.pm +++ b/lib/B/RecDeparse.pm @@ -65,8 +65,8 @@ The C option expects an integer that specifies how many levels of recursi use constant { # p31268 made pp_entersub call single_delim FOOL_SINGLE_DELIM => - ($^V ge v5.9.5) - || ($^V lt v5.9.0 and $^V ge v5.8.9) + ("$]" >= 5.009_005) + || ("$]" < 5.009 and "$]" >= 5.008_009) || ($Config{perl_patchlevel} && $Config{perl_patchlevel} >= 31268) };