diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-05-10 14:08:43 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-05-10 14:08:43 +0000 |
| commit | 3cacfbb9b2d87693f7e1ca19103800cc2118ccb4 (patch) | |
| tree | d6baecc0bb40e49c11866205d52ad407500e2b56 /pp_ctl.c | |
| parent | 6a4a49dd808ad2c69f6e654d449e72d713a54229 (diff) | |
| download | perl-3cacfbb9b2d87693f7e1ca19103800cc2118ccb4.tar.gz | |
no 5.9.4; should fail in version 5.9.4.
Improve the diagnostics and test names in t/comp/use.t
p4raw-id: //depot/perl@28150
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3095,7 +3095,7 @@ PP(pp_require) if (!sv_derived_from(PL_patchlevel, "version")) upg_version(PL_patchlevel); if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) { - if ( vcmp(sv,PL_patchlevel) < 0 ) + if ( vcmp(sv,PL_patchlevel) <= 0 ) DIE(aTHX_ "Perls since %"SVf" too modern--this is %"SVf", stopped", (void*)vnormal(sv), (void*)vnormal(PL_patchlevel)); } |