[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 (file)
--- 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;