rpms/perl-perlmenu/devel getcapforperl5.patch, NONE, 1.1 perl-perlmenu.spec, 1.1, 1.2

[Parag Ashok Nemade (paragn)]

Author: paragn

Update of /cvs/extras/rpms/perl-perlmenu/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv26084

Modified Files:
	perl-perlmenu.spec 
Added Files:
	getcapforperl5.patch 
Log Message:
- Resolves: Bugzilla Bug 233541: perl-perlmenu fails with getcap on perl5


getcapforperl5.patch:

--- NEW FILE getcapforperl5.patch ---
--- perlmenu.pm	1997-02-15 02:25:39.000000000 +0530
+++ perlmenu-modified.pm	2007-03-26 15:34:08.000000000 +0530
@@ -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


Index: perl-perlmenu.spec
===================================================================
RCS file: /cvs/extras/rpms/perl-perlmenu/devel/perl-perlmenu.spec,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- perl-perlmenu.spec	5 Sep 2006 13:48:54 -0000	1.1
+++ perl-perlmenu.spec	26 Mar 2007 10:17:22 -0000	1.2
@@ -1,12 +1,13 @@
 Name:           perl-perlmenu
 Version:        4.0
-Release:        4%{?dist}
+Release:        4.1%{?dist}
 Summary:        Perl library module for curses-based menus & data-entry templates
 
 Group:          Development/Libraries
 License:        LGPL or Artistic
 URL:            http://search.cpan.org/dist/perlmenu/
 Source0:        http://search.cpan.org/CPAN/authors/id/S/SK/SKUNZ/perlmenu.v%{version}.tar.gz
+Patch0:		getcapforperl5.patch
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
@@ -18,6 +19,7 @@
 
 %prep
 %setup -q -n perlmenu.v%{version}
+%patch -p0
 mkdir examples
 mv demo* ez* template_* menuutil.pl examples/
 find examples -type f -exec chmod 644 {} \;
@@ -41,6 +43,9 @@
 %{perl_vendorlib}/*
 
 %changelog
+* Mon Jan 26 2007 Parag Nemade <panemade at gmail.com>- 4.0-4
+- Added pactch to enable getcap for perl5 for bug rh#233541
+
 * Fri Sep 01 2006 Parag Nemade <panemade at gmail.com>- 4.0-4
 - Corrected License tag