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.
