From: Michael King <mike808@users.sourceforge.net>
Date: Fri, 1 Sep 2000 11:27:50 +0000 (+0101)
Subject: [ID 20010831.002] Bug in Term::Cap on Solaris ansi terminal using CPAN::Shell
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5d88b850fe6a16386930bef9f70450e153ff6572;p=p5sagit%2Fp5-mst-13.2.git

[ID 20010831.002] Bug in Term::Cap on Solaris ansi terminal using CPAN::Shell
Message-Id: <200108312123.QAA27476@smtp.networkusa.net>
With little tweak

p4raw-id: //depot/perl@11808
---

diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm
index 06002e2..550f7fa 100644
--- a/lib/Term/Cap.pm
+++ b/lib/Term/Cap.pm
@@ -295,7 +295,7 @@ sub Tpad { ## public
     my($string, $cnt, $FH) = @_;
     my($decr, $ms);
 
-    if ($string =~ /(^[\d.]+)(\*?)(.*)$/) {
+    if (defined $string && $string =~ /(^[\d.]+)(\*?)(.*)$/) {
 	$ms = $1;
 	$ms *= $cnt if $2;
 	$string = $3;