Change 14024 by ams@lustre on 2002/01/02 18:16:12
Subject: PATCH: lib/Term/Cap.pm
From: Norton Allen <[EMAIL PROTECTED]>
Date: Wed, 2 Jan 2002 14:22:09 -0500 (est)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Term/Cap.pm#21 edit
Differences ...
==== //depot/perl/lib/Term/Cap.pm#21 (text) ====
Index: perl/lib/Term/Cap.pm
--- perl/lib/Term/Cap.pm.~1~ Wed Jan 2 11:30:06 2002
+++ perl/lib/Term/Cap.pm Wed Jan 2 11:30:06 2002
@@ -213,11 +213,15 @@
$entry = $VMS_TERMCAP;
}
else {
+ if ( grep { -x "$_/infocmp" } split /:/, $ENV{PATH} ) {
eval
{
- $entry = `infocmp -C 2>/dev/null`
- if grep { -x "$_/infocmp" } split /:/, $ENV{PATH};
+ $foo = `infocmp -C 2>/dev/null`;
+ if (($foo !~ m:^/:s) && ($foo =~ m/(^|\|)${termpat}[:|]/s)) {
+ $entry = $foo;
+ }
}
+ }
}
}
End of Patch.
