Mailinglist Archive: opensuse-commit (858 mails)

[root@xxxxxxxxxxxxxxx (h_root)]

Hello community,

here is the log from the commit of package perl-Sub-Uplevel
checked in at Fri Nov 2 01:37:31 CET 2007.

--------
--- perl-Sub-Uplevel/perl-Sub-Uplevel.changes   2007-10-08 09:59:16.000000000 
+0200
+++ /mounts/work_src_done/STABLE/perl-Sub-Uplevel/perl-Sub-Uplevel.changes      
2007-11-01 15:49:42.000000000 +0100
@@ -1,0 +2,6 @@
+Thu Nov  1 15:44:09 CET 2007 - anicka@xxxxxxx
+
+- update to 0.18
+ * removed 5.006-specific language and tested on prerelease 5.00505
+
+-------------------------------------------------------------------

Old:
----
  Sub-Uplevel-0.16.tar.bz2

New:
----
  Sub-Uplevel-0.18.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Sub-Uplevel.spec ++++++
--- /var/tmp/diff_new_pack.a25654/_old  2007-11-02 01:37:27.000000000 +0100
+++ /var/tmp/diff_new_pack.a25654/_new  2007-11-02 01:37:27.000000000 +0100
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-Sub-Uplevel (Version 0.16)
+# spec file for package perl-Sub-Uplevel (Version 0.18)
 #
 # Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
@@ -11,7 +11,7 @@
 # norootforbuild
 
 Name:           perl-Sub-Uplevel
-Version:        0.16
+Version:        0.18
 Release:        1
 Requires:       perl = %{perl_version}
 AutoReqProv:    on
@@ -62,6 +62,9 @@
 %{perl_vendorlib}/Sub/*
 %{perl_vendorarch}/auto/Sub/Uplevel/
 %changelog
+* Thu Nov 01 2007 - anicka@xxxxxxx
+- update to 0.18
+  * removed 5.006-specific language and tested on prerelease 5.00505
 * Mon Oct 08 2007 - anicka@xxxxxxx
 - update to 0.16
   * Won't override any existing CORE::GLOBAL::caller when loaded

++++++ Sub-Uplevel-0.16.tar.bz2 -> Sub-Uplevel-0.18.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/Build.PL new/Sub-Uplevel-0.18/Build.PL
--- old/Sub-Uplevel-0.16/Build.PL       2007-07-30 15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/Build.PL       2007-10-31 12:01:41.000000000 +0100
@@ -8,7 +8,6 @@
     create_readme       => 1,
     create_makefile_pl  => 'traditional',
     requires        => {
-        perl => 5.006,
         Test::More => 0.47,
     },
 )->create_build_script;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/Changes new/Sub-Uplevel-0.18/Changes
--- old/Sub-Uplevel-0.16/Changes        2007-07-30 15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/Changes        2007-10-31 12:01:41.000000000 +0100
@@ -1,5 +1,11 @@
 Changes for Sub::Uplevel
 
+0.18 Wed Oct 31 06:56:13 EDT 2007
+    - release version of 0.17_01 changes
+
+0.17_01
+    - removed 5.006-specific language and tested on prerelease 5.00505
+
 0.16 Mon Jul 30 09:54:41 EDT 2007
     - release version of 0.15_01 changes
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/lib/Sub/Uplevel.pm 
new/Sub-Uplevel-0.18/lib/Sub/Uplevel.pm
--- old/Sub-Uplevel-0.16/lib/Sub/Uplevel.pm     2007-07-30 15:57:03.000000000 
+0200
+++ new/Sub-Uplevel-0.18/lib/Sub/Uplevel.pm     2007-10-31 12:01:41.000000000 
+0100
@@ -1,10 +1,8 @@
 package Sub::Uplevel;
 
-use 5.006;
-
 use strict;
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION = "0.16";
+$VERSION = '0.18';
 
 # We must override *CORE::GLOBAL::caller if it hasn't already been 
 # overridden or else Perl won't see our local override later.
@@ -21,6 +19,10 @@
 
 Sub::Uplevel - apparently run a function in a higher stack frame
 
+=head1 VERSION
+
+This documentation describes version 0.18
+
 =head1 SYNOPSIS
 
   use Sub::Uplevel;
@@ -76,19 +78,26 @@
 
 =cut
 
-our @Up_Frames; # uplevel stack
-our $Caller_Proxy; # whatever caller() override was in effect before uplevel
+use vars qw/@Up_Frames $Caller_Proxy/;
+# @Up_Frames -- uplevel stack
+# $Caller_Proxy -- whatever caller() override was in effect before uplevel
 
 sub uplevel {
     my($num_frames, $func, @args) = @_;
     
     local @Up_Frames = ($num_frames, @Up_Frames );
     
-    no warnings 'redefine';
+    # backwards compatible version of "no warnings 'redefine'"
+    my $old_W = $^W;
+    $^W = 0;
+
     # Update the caller proxy if the uplevel override isn't in effect
     local $Caller_Proxy = *CORE::GLOBAL::caller{CODE}
         if *CORE::GLOBAL::caller{CODE} != \&_uplevel_caller;
     local *CORE::GLOBAL::caller = \&_uplevel_caller;
+    
+    # restore old warnings state
+    $^W = $old_W;
 
     return $func->(@args);
 }
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/META.yml new/Sub-Uplevel-0.18/META.yml
--- old/Sub-Uplevel-0.16/META.yml       2007-07-30 15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/META.yml       2007-10-31 12:01:41.000000000 +0100
@@ -1,6 +1,6 @@
 ---
 name: Sub-Uplevel
-version: 0.16
+version: 0.18
 author:
   - 'David A. Golden <dagolden@xxxxxxxx>'
 abstract: apparently run a function in a higher stack frame
@@ -9,12 +9,11 @@
   license: http://dev.perl.org/licenses/
 requires:
   Test::More: 0.47
-  perl: 5.006
 provides:
   Sub::Uplevel:
     file: lib/Sub/Uplevel.pm
-    version: 0.16
-generated_by: Module::Build version 0.2805
+    version: 0.18
+generated_by: Module::Build version 0.2808
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/README new/Sub-Uplevel-0.18/README
--- old/Sub-Uplevel-0.16/README 2007-07-30 15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/README 2007-10-31 12:01:41.000000000 +0100
@@ -1,6 +1,9 @@
 NAME
     Sub::Uplevel - apparently run a function in a higher stack frame
 
+VERSION
+    This documentation describes version 0.18
+
 SYNOPSIS
       use Sub::Uplevel;
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/t/02_uplevel.t 
new/Sub-Uplevel-0.18/t/02_uplevel.t
--- old/Sub-Uplevel-0.16/t/02_uplevel.t 2007-07-30 15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/t/02_uplevel.t 2007-10-31 12:01:41.000000000 +0100
@@ -72,14 +72,18 @@
 }
 
 
-my $croak_diag = $] <= 5.006 ? 'require 0' : 'eval {...}';
+# depending on perl version, we could get 'require 0' or 'eval {...}'
+# in the stack. This test used to be 'require 0' for <= 5.006, but
+# it broke on 5.005_05 test release, so we'll just take either
 # line 72
 eval { wrap_croak() };
-is( $@, <<CARP, 'croak() fooled');
+my $croak_regex = quotemeta( <<"CARP" );
 Now we can fool croak! at $0 line 64
        main::wrap_croak() called at $0 line 72
-       $croak_diag called at $0 line 72
 CARP
+$croak_regex .= '\t(require 0|eval \{\.\.\.\})'
+                . quotemeta( " called at $0 line 72" );
+like( $@, "/$croak_regex/", 'croak() fooled');
 
 #line 79
 ok( !caller,                                "caller() not screwed up" );
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/t/03_nested_uplevels.t 
new/Sub-Uplevel-0.18/t/03_nested_uplevels.t
--- old/Sub-Uplevel-0.16/t/03_nested_uplevels.t 2007-07-30 15:57:03.000000000 
+0200
+++ new/Sub-Uplevel-0.18/t/03_nested_uplevels.t 2007-10-31 12:01:41.000000000 
+0100
@@ -1,6 +1,5 @@
 #!perl
 use strict;
-use warnings;
 use Test::More;
 
 use Sub::Uplevel;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/t/04_honor_later_override.t 
new/Sub-Uplevel-0.18/t/04_honor_later_override.t
--- old/Sub-Uplevel-0.16/t/04_honor_later_override.t    2007-07-30 
15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/t/04_honor_later_override.t    2007-10-31 
12:01:41.000000000 +0100
@@ -41,9 +41,12 @@
         "Sub::Uplevel's normal caller override in place"
     );
 
-    no warnings 'redefine';
+    # old style no warnings 'redefine'
+    my $old_W = $^W;
+    $^W = 0;
         
     *CORE::GLOBAL::caller = \&_reverse_caller;
+    $^W = $old_W
 
 }
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn 
--exclude=.svnignore old/Sub-Uplevel-0.16/t/05_honor_prior_override.t 
new/Sub-Uplevel-0.18/t/05_honor_prior_override.t
--- old/Sub-Uplevel-0.16/t/05_honor_prior_override.t    2007-07-30 
15:57:03.000000000 +0200
+++ new/Sub-Uplevel-0.18/t/05_honor_prior_override.t    2007-10-31 
12:01:41.000000000 +0100
@@ -36,8 +36,11 @@
     );
 
     {
-        no warnings 'redefine';
+        # old style no warnings 'redefine'
+        my $old_W = $^W;
+        $^W = 0;
         *CORE::GLOBAL::caller = \&_reverse_caller;
+        $^W = $old_W;
     }
 
     is( *CORE::GLOBAL::caller{CODE}, \&_reverse_caller,


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx