Change 17883 by rgs@rgs-home on 2002/09/09 19:10:08 Subject: [PATCH] Quieten warnings in Deparse.pm From: Paul Johnson <[EMAIL PROTECTED]> Date: Sun, 8 Sep 2002 23:50:11 +0200 Message-ID: <[EMAIL PROTECTED]>
Affected files ... .... //depot/perl/ext/B/B/Deparse.pm#122 edit Differences ... ==== //depot/perl/ext/B/B/Deparse.pm#122 (text) ==== Index: perl/ext/B/B/Deparse.pm --- perl/ext/B/B/Deparse.pm#121~17804~ Thu Aug 29 06:29:43 2002 +++ perl/ext/B/B/Deparse.pm Mon Sep 9 12:10:08 2002 @@ -3041,7 +3041,7 @@ | \\[uUlLQE] ) - /length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; + /defined($4) && length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; return $str; } End of Patch.