Hello community, here is the log from the commit of package perl-Clone checked in at Mon Sep 18 13:08:57 CEST 2006. -------- --- perl-Clone/perl-Clone.changes 2006-01-25 21:39:32.000000000 +0100 +++ perl-Clone/perl-Clone.changes 2006-09-18 12:57:48.000000000 +0200 @@ -1,0 +2,9 @@ +Mon Sep 18 04:45:49 CEST 2006 - lmuelle@suse.de + +- Update to version 0.20. + - Commented out VERSION causes errors with DynaLoader in perl 5.6.1 (and + probably all earlier versions. It was removed. + - added a test and fix for tainted variables. + use a static VERSION in Clone.pm. + +------------------------------------------------------------------- Old: ---- Clone-0.18.tar.gz New: ---- Clone-0.20.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Clone.spec ++++++ --- /var/tmp/diff_new_pack.Qn6lTl/_old 2006-09-18 13:08:06.000000000 +0200 +++ /var/tmp/diff_new_pack.Qn6lTl/_new 2006-09-18 13:08:06.000000000 +0200 @@ -1,11 +1,11 @@ # -# spec file for package perl-Clone (Version 0.18) +# spec file for package perl-Clone (Version 0.20) # -# Copyright (c) 2005 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine # package are under the same license as the package itself. # -# Please submit bugfixes or comments via http://www.suse.de/feedback/ +# Please submit bugfixes or comments via http://bugs.opensuse.org/ # # norootforbuild @@ -17,7 +17,7 @@ Requires: perl = %{perl_version} Autoreqprov: on Summary: recursively copy Perl datatypes -Version: 0.18 +Version: 0.20 Release: 1 Source: http://cpan.org/modules/by-module/Clone/Clone-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -57,6 +57,12 @@ /var/adm/perl-modules/%{name} %changelog -n perl-Clone +* Mon Sep 18 2006 - lmuelle@suse.de +- Update to version 0.20. +- Commented out VERSION causes errors with DynaLoader in perl 5.6.1 (and + probably all earlier versions. It was removed. +- added a test and fix for tainted variables. + use a static VERSION in Clone.pm. * Wed Jan 25 2006 - mls@suse.de - converted neededforbuild to BuildRequires * Tue Jul 19 2005 - lmuelle@suse.de ++++++ Clone-0.18.tar.gz -> Clone-0.20.tar.gz ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Clone-0.18/Changes new/Clone-0.20/Changes --- old/Clone-0.18/Changes 2005-05-23 17:34:31.000000000 +0200 +++ new/Clone-0.20/Changes 2006-03-08 18:15:23.000000000 +0100 @@ -1,6 +1,14 @@ Revision history for Perl extension Clone. $Log: Changes,v $ +Revision 0.20 2006/03/08 17:15:23 ray +Commented out VERSION causes errors with DynaLoader in perl 5.6.1 (and +probably all earlier versions. It was removed. + +Revision 0.19 2006/03/06 07:22:32 ray +added a test and fix for tainted variables. +use a static VERSION in Clone.pm. + Revision 0.18 2005/05/23 15:34:31 ray moved declaration to top of function, M$ (and other) C compilers choke. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Clone-0.18/Clone.pm new/Clone-0.20/Clone.pm --- old/Clone-0.18/Clone.pm 2005-05-23 17:34:31.000000000 +0200 +++ new/Clone-0.20/Clone.pm 2006-03-08 18:15:23.000000000 +0100 @@ -1,4 +1,4 @@ -# $Id: Clone.pm,v 0.18 2005/05/23 15:34:31 ray Exp $ +# $Id: Clone.pm,v 0.20 2006/03/08 17:15:23 ray Exp $ package Clone; use strict; @@ -16,7 +16,7 @@ @EXPORT = qw(); @EXPORT_OK = qw( clone ); -( $VERSION ) = '$Revision: 0.18 $ ' =~ /\$Revision:\s+([^\s]+)/; +$VERSION = '0.20'; bootstrap Clone $VERSION; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Clone-0.18/Clone.xs new/Clone-0.20/Clone.xs --- old/Clone-0.18/Clone.xs 2005-05-23 17:34:31.000000000 +0200 +++ new/Clone-0.20/Clone.xs 2006-03-06 08:22:32.000000000 +0100 @@ -4,7 +4,7 @@ #include "perl.h" #include "XSUB.h" -static char *rcs_id = "$Id: Clone.xs,v 0.18 2005/05/23 15:34:31 ray Exp $"; +static char *rcs_id = "$Id: Clone.xs,v 0.19 2006/03/06 07:22:32 ray Exp $"; #define CLONE_KEY(x) ((char *) x) @@ -226,12 +226,21 @@ SV *obj; /* we don't want to clone a qr (regexp) object */ /* there are probably other types as well ... */ - if (mg->mg_type == 'r') - obj = mg->mg_obj; - else if (mg->mg_type == '<') /* PERL_MAGIC_backref */ - continue; - else - obj = sv_clone(mg->mg_obj, -1); + TRACEME(("magic type: %c\n", mg->mg_type)); + switch (mg->mg_type) + { + case 'r': /* PERL_MAGIC_qr */ + obj = mg->mg_obj; + break; + case 't': /* PERL_MAGIC_taint */ + continue; + break; + case '<': /* PERL_MAGIC_backref */ + continue; + break; + default: + obj = sv_clone(mg->mg_obj, -1); + } magic_ref++; /* this is plain old magic, so do the same thing */ sv_magic(clone, diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Clone-0.18/META.yml new/Clone-0.20/META.yml --- old/Clone-0.18/META.yml 2005-05-23 17:35:05.000000000 +0200 +++ new/Clone-0.20/META.yml 2006-03-08 18:15:31.000000000 +0100 @@ -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: Clone -version: 0.18 +version: 0.20 version_from: Clone.pm installdirs: site requires: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Clone-0.18/t/07magic.t new/Clone-0.20/t/07magic.t --- old/Clone-0.18/t/07magic.t 2005-05-05 23:56:07.000000000 +0200 +++ new/Clone-0.20/t/07magic.t 2006-03-06 07:59:40.000000000 +0100 @@ -1,42 +1,37 @@ -# $Id: 07magic.t,v 1.2 2005/04/20 15:49:35 ray Exp $ -# Before `make install' is performed this script should be runnable with -# `make test'. After `make install' it should work as `perl test.pl' - -######################### We start with some black magic to print on failure. - -# Change 1..1 below to 1..last_test_to_print . -# (It may become useful if the test is moved to ./t subdirectory.) - -BEGIN { $| = 1; print "1..2\n"; } -END {print "not ok 1\n" unless $loaded;} -use Clone; -use Data::Dumper; -$loaded = 1; -print "ok 1\n"; - -######################### End of black magic. - -# Insert your test code below (better if it prints "ok 13" -# (correspondingly "not ok 13") depending on the success of chunk 13 -# of the test code): - -$^W = 0; -$test = 2; - -sub ok { printf("ok %d\n", $test++); } -sub not_ok { printf("not ok %d\n", $test++); } +# $Id: 07magic.t,v 1.3 2006/03/06 06:59:40 ray Exp $ use strict; -package main; - -use Scalar::Util qw( weaken ); - -my $x = { a => "worked\n" }; -my $y = $x; -weaken($y); -my $z = Clone::clone($x); -Dumper($x) eq Dumper($z) ? ok : not_ok; +use Clone; +use Test::More tests => 2; -# print Dumper($a, $b); -# print Dumper($a, $c); +SKIP: { + eval "use Data::Dumper"; + skip "Data::Dumper not installed", 1 if $@; + + SKIP: { + eval "use Scalar::Util qw( weaken )"; + skip "Scalar::Util not installed", 1 if $@; + + my $x = { a => "worked\n" }; + my $y = $x; + weaken($y); + my $z = Clone::clone($x); + ok( Dumper($x) eq Dumper($z), "Cloned weak reference"); + } +} + +SKIP: { + eval "use Taint::Runtime qw(enable taint_env)"; + skip "Taint::Runtime not installed", 1 if $@; + taint_env(); + my $x = ""; + for (keys %ENV) + { + $x = $ENV{$_}; + last if ( $x && length($x) > 0 ); + } + my $y = Clone::clone($x); + ## ok(Clone::clone($tainted), "Tainted input"); + ok( Dumper($x) eq Dumper($y), "Tainted input"); +} ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org
participants (1)
-
root@suse.de