This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / lib / termcap.pl
index 5b48d71..22c1817 100644 (file)
@@ -33,7 +33,7 @@ sub Tgetent {
            while (<TERMCAP>) {
                next if /^#/;
                next if /^\t/;
-               if (/(^|\\|)$TERM[:\\|]/) {
+               if (/(^|\\|)$TERM\[:\\|]/) {
                    chop;
                    while (chop eq '\\\\') {
                        \$_ .= <TERMCAP>;