|
Link Here
|
| 105 |
# Uncomment these statements if you DON'T have "getcap()" OR |
105 |
# Uncomment these statements if you DON'T have "getcap()" OR |
| 106 |
# if the demo doesn't appear to work (there's a bug in some getcap's). |
106 |
# if the demo doesn't appear to work (there's a bug in some getcap's). |
| 107 |
# |
107 |
# |
| 108 |
#if ($] >= 5.001) { # Perl5 ONLY! |
108 |
if ($] >= 5.001) { # Perl5 ONLY! |
| 109 |
#package Perl5::Menu_PL::Compat; # Don't pollute perlmenu.pm namespace |
109 |
package Perl5::Menu_PL::Compat; # Don't pollute perlmenu.pm namespace |
| 110 |
#require Term::Cap; # Get Tgetent package |
110 |
require Term::Cap; # Get Tgetent package |
| 111 |
#$term = Tgetent Term::Cap { OSPEED => 9600 }; # Define entry |
111 |
$term = Tgetent Term::Cap { OSPEED => 9600 }; # Define entry |
| 112 |
#sub perlmenu::getcap { $term->{"_" . shift()} }; # Define local subroutine |
112 |
sub perlmenu::getcap { $term->{"_" . shift()} }; # Define local subroutine |
| 113 |
#} |
113 |
} |
| 114 |
|
114 |
|
| 115 |
# PERL4 ONLY (GETCAP PROBLEMS) |
115 |
# PERL4 ONLY (GETCAP PROBLEMS) |
| 116 |
# Uncomment these statements if you DON'T have "getcap()" OR |
116 |
# Uncomment these statements if you DON'T have "getcap()" OR |
