From 0e8f60dd43c9e8276bfd6598ee62ebf70fa0c631 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 5 Aug 1999 10:31:47 +0000 Subject: split /^/ deprecation warning should not be on by default. p4raw-id: //depot/cfgperl@3925 --- pp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp.c') diff --git a/pp.c b/pp.c index b7e94f50a2..8437e5b40c 100644 --- a/pp.c +++ b/pp.c @@ -5010,7 +5010,7 @@ PP(pp_split) else if (rx->prelen == 1 && *rx->precomp == '^') { if (!(pm->op_pmflags & PMf_MULTILINE) && !(pm->op_pmregexp->reganch & ROPT_WARNED)) { - if (ckWARN_d(WARN_DEPRECATED)) + if (ckWARN(WARN_DEPRECATED)) Perl_warner(aTHX_ WARN_DEPRECATED, "split /^/ better written as split /^/m"); pm->op_pmregexp->reganch |= ROPT_WARNED; -- cgit v1.2.1