Change 11808 by sky@sky-borderline on 2001/09/01 11:39:13
Subject: [ID 20010831.002] Bug in Term::Cap on Solaris ansi terminal using
CPAN::Shell
From: [EMAIL PROTECTED]
Date: Sat, 1 Sep 101 11:27:50 GMT
Message-Id: <[EMAIL PROTECTED]>
With little tweak
Affected files ...
... //depot/perl/lib/Term/Cap.pm#12 edit
Differences ...
==== //depot/perl/lib/Term/Cap.pm#12 (text) ====
Index: perl/lib/Term/Cap.pm
--- perl/lib/Term/Cap.pm.~1~ Sat Sep 1 05:45:06 2001
+++ perl/lib/Term/Cap.pm Sat Sep 1 05:45:06 2001
@@ -295,7 +295,7 @@
my($string, $cnt, $FH) = @_;
my($decr, $ms);
- if ($string =~ /(^[\d.]+)(\*?)(.*)$/) {
+ if (defined $string && $string =~ /(^[\d.]+)(\*?)(.*)$/) {
$ms = $1;
$ms *= $cnt if $2;
$string = $3;
End of Patch.
