Retract #3922 (Rule #1 was invoked).

(See also #4058).

p4raw-id: //depot/cfgperl@4056

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 2634d83..87b5d9e 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -2652,10 +2652,6 @@ See L<perlfunc/sort>.
 (F) A sort comparison subroutine may not return a list value with more
 or less than one element.  See L<perlfunc/sort>.
 
-=item split /^/ better written as split /^/m
-
-(W) Implicit translation of /^/ to mean /^/m in split is deprecated.
-
 =item Split loop
 
 (P) The split was looping infinitely.  (Obviously, a split shouldn't iterate

diff --git a/regexp.h b/regexp.h
index 414b254..5d787e0 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -69,8 +69,6 @@ typedef struct regexp {
 #define RE_INTUIT_ONECHAR      0x4000000
 #define RE_INTUIT_TAIL         0x8000000
 
-#define ROPT_WARNED            0x10000000
-
 #define RE_USE_INTUIT          (RE_USE_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REINT_AUTORITATIVE     (REINT_AUTORITATIVE_NOML|REINT_AUTORITATIVE_ML)
 #define REINT_ONCE             (REINT_ONCE_NOML|REINT_ONCE_ML)