projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
46a8fef
)
split /^/ deprecation warning should not be on by default.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 5 Aug 1999 10:31:47 +0000
(10:31 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 5 Aug 1999 10:31:47 +0000
(10:31 +0000)
p4raw-id: //depot/cfgperl@3925
pp.c
patch
|
blob
|
history
diff --git
a/pp.c
b/pp.c
index
b7e94f5
..
8437e5b
100644
(file)
--- 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;