use strict by default if "use 5.011" is in effect!

1 files changed, 8 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 59ac8c12a8..75d98dde1c 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3255,6 +3255,14 @@ PP(pp_require)
 	    Perl_load_module(aTHX_ 0, newSVpvs("feature"), NULL, importsv, NULL);
 	    LEAVE;
 	}
+	/* If a version >= 5.11.0 is requested, strictures are on by default! */
+	if (PL_compcv &&
+		vcmp(sv, sv_2mortal(upg_version(newSVnv(5.011000), FALSE))) >= 0) {
+	    ENTER;
+	    Perl_load_module(aTHX_ 0, newSVpvs("strict"), NULL, NULL, NULL);
+	    LEAVE;
+	}
+
 
 	RETPUSHYES;
     }