commit perl-Test-Deep for openSUSE:Factory

27 Nov 2009

Hello community,

here is the log from the commit of package perl-Test-Deep for openSUSE:Factory
checked in at Fri Nov 27 16:18:56 CET 2009.



--------

--- perl-Test-Deep/perl-Test-Deep.changes	2009-07-25 19:42:44.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Test-Deep/perl-Test-Deep.changes	2009-09-07 12:42:51.000000000 +0200
@@ -1,0 +2,5 @@
+Mon Sep  7 12:41:55 CEST 2009 - mls@suse.de
+
+- update to 0.106 to make it build with perl-5.10.1
+
+-------------------------------------------------------------------

calling whatdependson for head-i586


Old:
----
  Test-Deep-0.104.tar.bz2

New:
----
  Test-Deep-0.106.tar.bz2

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

Other differences:
------------------
++++++ perl-Test-Deep.spec ++++++
--- /var/tmp/diff_new_pack.YuHD5S/_old	2009-11-27 16:17:28.000000000 +0100
+++ /var/tmp/diff_new_pack.YuHD5S/_new	2009-11-27 16:17:28.000000000 +0100
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-Test-Deep (Version 0.104)
+# spec file for package perl-Test-Deep (Version 0.106)
 #
 # Copyright (c) 2009 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
@@ -21,9 +21,9 @@
 Name:           perl-Test-Deep
 %define cpan_name %( echo %{name} | %{__sed} -e 's,perl-,,' )
 Summary:        Extremely flexible deep comparison
-Version:        0.104
+Version:        0.106
 Release:        1
-License:        Artistic License ..
+License:        Artistic
 Group:          Development/Libraries/Perl
 Url:            http://cpan.org/
 Source:         http://cpan.org/modules/by-module/Test/%{cpan_name}-%{version}.tar.bz2

++++++ Test-Deep-0.104.tar.bz2 -> Test-Deep-0.106.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/CHANGES new/Test-Deep-0.106/CHANGES
--- old/Test-Deep-0.104/CHANGES	2009-03-05 23:51:57.000000000 +0100
+++ new/Test-Deep-0.106/CHANGES	2009-08-09 22:09:25.000000000 +0200
@@ -1,3 +1,12 @@
+0.106
+
+Release after dev.
+
+0.105-dev
+
+Fix for perl 5.010.1 - the code to check the version and act correctly
+on regexp refs treated .1 as behaving like 5.011.
+
 0.104
 
 Document behaviour of cmp_bag when a non ARRAY-ref argument is passed
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/lib/Test/Deep/RegexpRef.pm new/Test-Deep-0.106/lib/Test/Deep/RegexpRef.pm
--- old/Test-Deep-0.104/lib/Test/Deep/RegexpRef.pm	2008-05-31 12:37:11.000000000 +0200
+++ new/Test-Deep-0.106/lib/Test/Deep/RegexpRef.pm	2009-08-08 00:06:52.000000000 +0200
@@ -4,6 +4,7 @@
 package Test::Deep::RegexpRef;
 
 use Test::Deep::Ref;
+use Test::Deep::RegexpVersion;
 
 sub init
 {
@@ -22,7 +23,7 @@
 
 	my $exp = $self->{val};
 
-	if ($] <= 5.010) {
+	if ($Test::Deep::RegexpVersion::OldStyle) {
 		return 0 unless $self->test_class($got, "Regexp");
 		return 0 unless $self->test_reftype($got, "SCALAR");
 	} else {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/lib/Test/Deep/RegexpVersion.pm new/Test-Deep-0.106/lib/Test/Deep/RegexpVersion.pm
--- old/Test-Deep-0.104/lib/Test/Deep/RegexpVersion.pm	1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Deep-0.106/lib/Test/Deep/RegexpVersion.pm	2009-08-08 00:08:44.000000000 +0200
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+
+package Test::Deep::RegexpVersion;
+
+use vars qw( $OldStyle );
+
+# Older versions of Perl treated Regexp refs as opaque scalars blessed
+# into the "Regexp" class. Several bits of code need this so we
+# centralise the test for that kind of version.
+$OldStyle = ($] < 5.011);
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/lib/Test/Deep.pm new/Test-Deep-0.106/lib/Test/Deep.pm
--- old/Test-Deep-0.104/lib/Test/Deep.pm	2009-03-05 23:53:03.000000000 +0100
+++ new/Test-Deep-0.106/lib/Test/Deep.pm	2009-08-09 22:09:08.000000000 +0200
@@ -6,6 +6,8 @@
 
 use Test::Deep::Cache;
 use Test::Deep::Stack;
+use Test::Deep::RegexpVersion;
+
 require overload;
 use Scalar::Util;
 
@@ -25,7 +27,8 @@
 	$Snobby $Expects $DNE $DNE_ADDR $Shallow
 );
 
-$VERSION = '0.104';
+$VERSION = '0.106';
+$VERSION = eval $VERSION;
 
 require Exporter;
 @ISA = qw( Exporter );
@@ -352,7 +355,7 @@
 		{
 			$cmp = scalref($data);
 		}
-		elsif($] <= 5.010 ? ($base eq 'Regexp') : ($base eq 'REGEXP'))
+		elsif(($base eq 'Regexp') or ($base eq 'REGEXP'))
 		{
 			$cmp = regexpref($data);
 		}
@@ -377,7 +380,7 @@
 		my $reftype = Scalar::Util::reftype($val);
 
 
-		if ($] <= 5.010) {
+		if ($Test::Deep::RegexpVersion::OldStyle) {
 			if ($blessed eq "Regexp" and $reftype eq "SCALAR")
 			{
 				$reftype = "Regexp"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/MANIFEST new/Test-Deep-0.106/MANIFEST
--- old/Test-Deep-0.104/MANIFEST	2008-05-31 12:37:11.000000000 +0200
+++ new/Test-Deep-0.106/MANIFEST	2009-08-08 00:19:03.000000000 +0200
@@ -34,6 +34,7 @@
 lib/Test/Deep/RegexpOnly.pm
 lib/Test/Deep/RegexpRef.pm
 lib/Test/Deep/RegexpRefOnly.pm
+lib/Test/Deep/RegexpVersion.pm
 lib/Test/Deep/ScalarRef.pm
 lib/Test/Deep/ScalarRefOnly.pm
 lib/Test/Deep/Set.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/META.yml new/Test-Deep-0.106/META.yml
--- old/Test-Deep-0.104/META.yml	2009-03-05 23:53:19.000000000 +0100
+++ new/Test-Deep-0.106/META.yml	2009-08-09 22:09:52.000000000 +0200
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Test-Deep
-version:      0.104
+version:      0.106
 version_from: ./lib/Test/Deep.pm
 installdirs:  perl
 requires:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.104/t/deep_utils.t new/Test-Deep-0.106/t/deep_utils.t
--- old/Test-Deep-0.104/t/deep_utils.t	2008-05-31 12:37:11.000000000 +0200
+++ new/Test-Deep-0.106/t/deep_utils.t	2009-08-08 00:08:51.000000000 +0200
@@ -28,5 +28,5 @@
 
 	my ($class, $base) = class_base($a);
 	is($class, "Regexp", "class_base class regexp");
-	is($base, ($] <= 5.010 ? "Regexp" : "REGEXP"), "class_base base regexp");
+	is($base, ($] < 5.011 ? "Regexp" : "REGEXP"), "class_base base regexp");
 }


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



Remember to have fun...

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

    

root＠Hilbert.suse.de

tags (0)

participants (1)