mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-11 23:25:17 +00:00
22 lines
940 B
Plaintext
22 lines
940 B
Plaintext
|
--- 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
|