diff options
| author | Michael King <mike808@users.sourceforge.net> | 2000-09-01 12:28:50 +0101 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2001-09-01 11:39:13 +0000 |
| commit | 5d88b850fe6a16386930bef9f70450e153ff6572 (patch) | |
| tree | 794a1c940950aadf664a54c1d3323b31583b9258 /lib/Term | |
| parent | 2826e23d06eb57e0799af5f9f67c55c5975ba0e5 (diff) | |
| download | perl-5d88b850fe6a16386930bef9f70450e153ff6572.tar.gz | |
[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
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/Cap.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm index 06002e2f7a..550f7fae29 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; |