blob: 4ccb32ae836d81063ce3ba88b50c60ab13b94c42 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- perlmenu.pm.orig Mon Aug 14 13:23:08 2000
+++ perlmenu.pm Mon Aug 14 13:23:36 2000
@@ -105,12 +105,12 @@
# Uncomment these statements if you DON'T have "getcap()" OR
# if the demo doesn't appear to work (there's a bug in some getcap's).
#
-#if ($] >= 5.001) { # Perl5 ONLY!
-#package Perl5::Menu_PL::Compat; # Don't pollute perlmenu.pm namespace
-#require Term::Cap; # Get Tgetent package
-#$term = Tgetent Term::Cap { OSPEED => 9600 }; # Define entry
-#sub perlmenu::getcap { $term->{"_" . shift()} }; # Define local subroutine
-#}
+if ($] >= 5.001) { # Perl5 ONLY!
+package Perl5::Menu_PL::Compat; # Don't pollute perlmenu.pm namespace
+require Term::Cap; # Get Tgetent package
+$term = Tgetent Term::Cap { OSPEED => 9600 }; # Define entry
+sub perlmenu::getcap { $term->{"_" . shift()} }; # Define local subroutine
+}
# PERL4 ONLY (GETCAP PROBLEMS)
# Uncomment these statements if you DON'T have "getcap()" OR
|