Change 17887 by rgs@rgs-home on 2002/09/09 21:00:08 Subject: Re: [PATCH] Quieten warnings in Deparse.pm From: Paul Johnson <[EMAIL PROTECTED]> Date: Mon, 9 Sep 2002 23:37:33 +0200 Message-ID: <[EMAIL PROTECTED]>
Affected files ... .... //depot/perl/ext/B/B/Deparse.pm#123 edit Differences ... ==== //depot/perl/ext/B/B/Deparse.pm#123 (text) ==== Index: perl/ext/B/B/Deparse.pm --- perl/ext/B/B/Deparse.pm#122~17883~ Mon Sep 9 12:10:08 2002 +++ perl/ext/B/B/Deparse.pm Mon Sep 9 14:00:08 2002 @@ -3013,7 +3013,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.