Change the warning message "%s trapped by operation mask"

to include '' around the op name. Document it in perldiag.

p4raw-id: //depot/perl@17973

1 files changed, 1 insertions, 1 deletions

diff --git a/ext/Safe/safe2.t b/ext/Safe/safe2.t
index d967b19634..94398d4565 100755
--- a/ext/Safe/safe2.t
+++ b/ext/Safe/safe2.t
@@ -38,7 +38,7 @@ $cpt = new Safe or die;
 $cpt = new Safe "Root";
 
 $cpt->reval(q{ system("echo not ok 1"); });
-if ($@ =~ /^system trapped by operation mask/) {
+if ($@ =~ /^'system' trapped by operation mask/) {
     print "ok 1\n";
 } else {
     print "#$@" if $@;