[Bug 233541] New: perl-perlmenu fails with getcap on perl5

[Red Hat Bugzilla]

Please do not reply directly to this email. All additional
comments should be made in the comments box of this bug report.




https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=233541

           Summary: perl-perlmenu fails with getcap on perl5
           Product: Fedora Core
           Version: devel
          Platform: All
        OS/Version: Linux
            Status: NEW
          Severity: normal
          Priority: medium
         Component: perl
        AssignedTo: rnorwood(a)redhat.com
        ReportedBy: kwan(a)digitalhermit.com
         QAContact: dkl(a)redhat.com
                CC: fedora-perl-devel-list(a)redhat.com


Description of problem:
Ttrying to use the perlmenu module returns the following error: 
Curses function 'getcap' is not defined by your vendor at
/usr/lib/perl5/vendor_perl/5.8.8/perlmenu.pm line 382.


Version-Release number of selected component (if applicable):
perl-perlmenu-4.0-4.fc6


How reproducible:
Call perlmenu function from withing a program.

Steps to Reproduce:
1.  yum install perl-perlmenu
2.  cd /usr/share/doc/perl-perlmenu-x.x.x/examples
3.  perl demo 2> outfile

  
Actual results:
Error log shows that getcap() from Curses is not available.

Expected results:
demo application should draw a curses menu system.

Additional info:


The perl-perlmenu package as shipped does not work with perl5.  The original
docs suggest the following change to /usr/lib/perl5/vendor_perl/5.8.8/perlmenu.pm:

108,113c108,113
< #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
>  } 
-- 
Configure bugmail: https://bugzilla.redhat.com/bugzilla/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.