Make "use feature 'dor'" an alias for "use feature 'err'"

p4raw-id: //depot/perl@28365

diff --git a/lib/feature.pm b/lib/feature.pm
index 240d46d..238820e 100644 (file)
--- a/lib/feature.pm
+++ b/lib/feature.pm
@@ -8,6 +8,7 @@ my %feature = (
     "~~"   => "feature_~~",
     say    => "feature_say",
     err    => "feature_err",
+    dor    => "feature_err",
     state  => "feature_state",
 );
 
@@ -82,6 +83,10 @@ operator from here to the end of the enclosing BLOCK.
 C<err> is a low-precedence variant of the C<//> operator:
 see C<perlop> for details.
 
+=head2 the 'dor' feature
+
+The 'dor' feature is an alias for the 'err' feature.
+
 =head2 the 'state' feature
 
 C<use feature 'state'> tells the compiler to enable C<state>