diff options
Diffstat (limited to 'devel/p5-PerlMenu/files/patch-aa')
| -rw-r--r-- | devel/p5-PerlMenu/files/patch-aa | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/devel/p5-PerlMenu/files/patch-aa b/devel/p5-PerlMenu/files/patch-aa new file mode 100644 index 0000000..4ccb32a --- /dev/null +++ b/devel/p5-PerlMenu/files/patch-aa @@ -0,0 +1,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 |
