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.
