rpms/perl-Sub-Uplevel/devel Sub-Uplevel-0.09-Uplevel.pm.patch, NONE, 1.1 perl-Sub-Uplevel.spec, 1.5, 1.6

[Jose Pedro Oliveira (jpo)]

Author: jpo

Update of /cvs/extras/rpms/perl-Sub-Uplevel/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv30342

Modified Files:
	perl-Sub-Uplevel.spec 
Added Files:
	Sub-Uplevel-0.09-Uplevel.pm.patch 
Log Message:
Sub::Uplevel patched to handle problems with perl 5.8.8.

Sub-Uplevel-0.09-Uplevel.pm.patch:

--- NEW FILE Sub-Uplevel-0.09-Uplevel.pm.patch ---
diff -ruN Sub-Uplevel-0.09-orig/lib/Sub/Uplevel.pm Sub-Uplevel-0.09/lib/Sub/Uplevel.pm
--- Sub-Uplevel-0.09-orig/lib/Sub/Uplevel.pm	2004-07-07 19:56:23.000000000 +0100
+++ Sub-Uplevel-0.09/lib/Sub/Uplevel.pm	2006-02-22 01:44:19.000000000 +0000
@@ -120,13 +120,14 @@
         # Yes, we need a C style for loop here since $height changes
         for( my $up = 1;  $up <= $height + 1;  $up++ ) {
             my @caller = CORE::caller($up);
+            next unless @caller;
             if( $caller[0] eq __PACKAGE__ ) {
                 $height++;
                 $height += $Up_Frames unless $saw_uplevel;
                 $saw_uplevel = 1;
             }
         }
-                
+
 
         return undef if $height < 0;
         my @caller = CORE::caller($height);


Index: perl-Sub-Uplevel.spec
===================================================================
RCS file: /cvs/extras/rpms/perl-Sub-Uplevel/devel/perl-Sub-Uplevel.spec,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- perl-Sub-Uplevel.spec	29 Dec 2005 02:40:47 -0000	1.5
+++ perl-Sub-Uplevel.spec	22 Feb 2006 14:24:14 -0000	1.6
@@ -1,17 +1,18 @@
 Name:           perl-Sub-Uplevel
 Version:        0.09
-Release:        3%{?dist}
+Release:        4%{?dist}
 Summary:        Run a perl function in an upper stack frame
 
 Group:          Development/Libraries
 License:        GPL or Artistic
 URL:            http://search.cpan.org/dist/Sub-Uplevel/
 Source0:        http://www.cpan.org/authors/id/M/MS/MSCHWERN/Sub-Uplevel-%{version}.tar.gz
+Patch0:         Sub-Uplevel-0.09-Uplevel.pm.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildArch:      noarch
 BuildRequires:  perl >= 1:5.6.1
-Requires:  perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 
 %description
 Like Tcl's uplevel() function, but not quite so dangerous.  The
@@ -21,6 +22,7 @@
 
 %prep
 %setup -q -n Sub-Uplevel-%{version}
+%patch0 -p1
 
 
 %build
@@ -52,6 +54,9 @@
 
 
 %changelog
+* Wed Feb 22 2006 Jose Pedro Oliveira <jpo at di.uminho.pt> - 0.09-4
+- Uplevel.pm patch (perl 5.8.8).
+
 * Thu Dec 29 2005 Jose Pedro Oliveira <jpo at di.uminho.pt> - 0.09-3
 - Dist tag.