December 2006 - openSUSE Commits - openSUSE Mailing Lists

commit perl-XML-Writer
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-XML-Writer checked in at Thu Dec 14 02:05:38 CET 2006. -------- --- perl-XML-Writer/perl-XML-Writer.changes 2006-09-15 19:57:31.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-XML-Writer/perl-XML-Writer.changes 2006-12-13 13:43:02.000000000 +0100 @@ -1,0 +2,8 @@ +Wed Dec 13 12:17:22 CET 2006 - anicka(a)suse.cz + +- update to 0.602 + * Fix bugs in test case to avoid breaking with new Perls. + * Make test case work with older Perls, tested against 5.004 + * Include pod syntax and coverage tests. + +------------------------------------------------------------------- Old: ---- XML-Writer-0.601.tar.bz2 New: ---- XML-Writer-0.602.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-XML-Writer.spec ++++++ --- /var/tmp/diff_new_pack.asMVvh/_old 2006-12-14 02:05:29.000000000 +0100 +++ /var/tmp/diff_new_pack.asMVvh/_new 2006-12-14 02:05:29.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-XML-Writer (Version 0.601) +# spec file for package perl-XML-Writer (Version 0.602) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,12 +11,12 @@ # norootforbuild Name: perl-XML-Writer -Version: 0.601 +Version: 0.602 Release: 1 Requires: perl = %{perl_version} Autoreqprov: on Group: Development/Libraries/Perl -License: GPL, Artistic License +License: Artistic License, GNU General Public License (GPL) URL: http://cpan.org/modules/by-module/XML/ Summary: A Perl Extension for Writing XML Documents Source: XML-Writer-%{version}.tar.bz2 @@ -59,6 +59,11 @@ /var/adm/perl-modules/%{name} %changelog -n perl-XML-Writer +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 0.602 + * Fix bugs in test case to avoid breaking with new Perls. + * Make test case work with older Perls, tested against 5.004 + * Include pod syntax and coverage tests. * Thu Sep 14 2006 - anicka(a)suse.cz - update to 0.601 * Don't modify list references passed as tag or attribute names ++++++ XML-Writer-0.601.tar.bz2 -> XML-Writer-0.602.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Changes new/XML-Writer-0.602/Changes --- old/XML-Writer-0.601/Changes 2006-09-01 16:17:24.000000000 +0200 +++ new/XML-Writer-0.602/Changes 2006-11-12 21:22:35.000000000 +0100 @@ -1,5 +1,10 @@ Revision history for Perl extension XML::Writer. +0.602 Sat Nov 11 16:54:22 GMT 2006 <joe(a)kafsemo.org> + - Fix bugs in test case to avoid breaking with new Perls. + - Make test case work with older Perls, tested against 5.004 (#17288). + - Include pod syntax and coverage tests. + 0.601 Fri Sep 1 15:01:45 BST 2006 <joe(a)kafsemo.org> - Don't modify list references passed as tag or attribute names (cpan #14854). diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/MANIFEST new/XML-Writer-0.602/MANIFEST --- old/XML-Writer-0.601/MANIFEST 2004-05-25 15:28:54.000000000 +0200 +++ new/XML-Writer-0.602/MANIFEST 2006-09-23 23:26:58.000000000 +0200 @@ -5,4 +5,6 @@ META.yml Writer.pm t/01_main.t +t/pod.t +t/pod-coverage.t TODO diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/META.yml new/XML-Writer-0.602/META.yml --- old/XML-Writer-0.601/META.yml 2006-09-01 16:17:24.000000000 +0200 +++ new/XML-Writer-0.602/META.yml 2006-11-12 21:22:35.000000000 +0100 @@ -1,10 +1,11 @@ -# http://module-build.sourceforge.net/META-spec-new.html -#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# -meta-spec: 1.1 +--- #YAML:1.0 +meta-spec: + version: 1.2 + url: http://module-build.sourceforge.net/META-spec-v1.2.html name: XML-Writer -version: 0.601 +version: 0.602 abstract: Easily generate well-formed, namespace-aware XML. -authored_by: +author: - David Megginson <david(a)megginson.com> - Ed Avis <ed(a)membled.com> - Joseph Walton <joe(a)kafsemo.org> diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Makefile.PL new/XML-Writer-0.602/Makefile.PL --- old/XML-Writer-0.601/Makefile.PL 2006-09-01 16:17:24.000000000 +0200 +++ new/XML-Writer-0.602/Makefile.PL 2006-11-12 21:22:35.000000000 +0100 @@ -7,7 +7,7 @@ # the contents of the Makefile that is written. WriteMakefile( 'NAME' => 'XML::Writer', - 'VERSION' => '0.601', + 'VERSION' => '0.602', # A manually-created META.yml has all the other metadata; # we don't want it overwritten diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/Writer.pm new/XML-Writer-0.602/Writer.pm --- old/XML-Writer-0.601/Writer.pm 2006-09-01 16:17:24.000000000 +0200 +++ new/XML-Writer-0.602/Writer.pm 2006-11-12 21:22:35.000000000 +0100 @@ -4,7 +4,7 @@ # Copyright (c) 2004, 2005 by Joseph Walton <joe(a)kafsemo.org>. # No warranty. Commercial and non-commercial use freely permitted. # -# $Id: Writer.pm 166 2006-09-01 14:17:24Z josephw $ +# $Id: Writer.pm 176 2006-11-12 20:22:35Z josephw $ ######################################################################## package XML::Writer; @@ -15,7 +15,7 @@ use vars qw($VERSION); use Carp; use IO::Handle; -$VERSION = "0.601"; +$VERSION = "0.602"; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/01_main.t new/XML-Writer-0.602/t/01_main.t --- old/XML-Writer-0.601/t/01_main.t 2006-09-01 16:01:45.000000000 +0200 +++ new/XML-Writer-0.602/t/01_main.t 2006-11-11 17:54:22.000000000 +0100 @@ -5,7 +5,7 @@ # Copyright (c) 2004 - 2006 by Joseph Walton <joe(a)kafsemo.org>. # No warranty. Commercial and non-commercial use freely permitted. # -# $Id: 01_main.t 164 2006-09-01 14:01:45Z josephw $ +# $Id: 01_main.t 175 2006-11-11 16:54:22Z josephw $ ######################################################################## # Before 'make install' is performed this script should be runnable with @@ -42,7 +42,12 @@ require XML::Writer; -wasNoWarning('Loading XML::Writer should not result in warnings'); +SKIP: { + skip "Perls before 5.6 always warn when loading XML::Writer", 1 if $] <= + 5.006; + + wasNoWarning('Loading XML::Writer should not result in warnings'); +} use IO::File; @@ -68,7 +73,7 @@ # Reset the scratch file $outputFile->seek(0, 0); $outputFile->truncate(0); - binmode($outputFile, ':raw'); + binmode($outputFile, ':raw') if $] >= 5.006; # Overwrite OUTPUT so it goes to the scratch file $args{'OUTPUT'} = $outputFile; @@ -721,7 +726,7 @@ $w->emptyTag('elem', ['http://www.w3.org/XML/1998/namespace', 'space'] => 'preserve'); $w->end(); - if (!unlike(getBufStr(), qr/1998/, "No declaration should be generated for the 'xml:' prefix")) + if (!unlike(getBufStr(), '/1998/', "No declaration should be generated for the 'xml:' prefix")) { diag(getBufStr()); } @@ -742,7 +747,7 @@ $w->endTag('doc'); $w->end(); - if (!unlike(getBufStr(), qr/uri:test.*uri:test/, 'An API should allow forced namespace declarations')) + if (!unlike(getBufStr(), '/uri:test.*uri:test/', 'An API should allow forced namespace declarations')) { diag(getBufStr()); } @@ -1360,7 +1365,13 @@ $w->comment("\$ \x{A3} \x{20AC}"); $w->startTag('a'); $w->dataElement('b', '$'); - $w->dataElement('b', "\x{A3}"); + + # I need U+00A3 as an is_utf8 string; I want to keep the source ASCII. + # There must be a better way to do this. + require Encode; + my $text = Encode::decode('iso-8859-1', "\x{A3}"); + $w->dataElement('b', $text); + $w->dataElement('b', "\x{20AC}"); $w->startTag('c'); $w->cdata(" \$ \x{A3} \x{20AC} "); @@ -1383,6 +1394,7 @@ # Capture generated XML in a scalar TEST: { + initEnv(); my $s; $w = new XML::Writer(OUTPUT => \$s); @@ -1395,6 +1407,7 @@ # Modify the scalar during capture TEST: { + initEnv(); my $s; $w = new XML::Writer(OUTPUT => \$s); @@ -1411,6 +1424,7 @@ # Ensure that ENCODING and SCALAR don't cause failure when used together TEST: { + initEnv(); my $s; ok(eval {$w = new XML::Writer(OUTPUT => \$s, @@ -1429,6 +1443,7 @@ SKIP: { skip $unicodeSkipMessage, 2 unless isUnicodeSupported(); + initEnv(); my $s; $w = new XML::Writer(OUTPUT => \$s); @@ -1482,8 +1497,11 @@ # Make sure non-ASCII characters that can't be represented # as references cause failure - my $text = "\x{A3}"; -# utf8::upgrade($text); + + # I need U+00A3 as an is_utf8 string; I want to keep the source ASCII. + # There must be a better way to do this. + require Encode; + my $text = Encode::decode('iso-8859-1', "\x{A3}"); initEnv(ENCODING => 'us-ascii', DATA_MODE => 1); $w->startTag('a'); @@ -1692,7 +1710,9 @@ } # Cover XML declaration encoding cases -TEST: { +SKIP: { + skip $unicodeSkipMessage, 8 unless isUnicodeSupported(); + # No declaration unless specified initEnv(); $w->xmlDecl(); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/pod-coverage.t new/XML-Writer-0.602/t/pod-coverage.t --- old/XML-Writer-0.601/t/pod-coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/XML-Writer-0.602/t/pod-coverage.t 2006-09-23 23:26:58.000000000 +0200 @@ -0,0 +1,8 @@ +use Test::More; + +eval "use Test::Pod::Coverage"; +plan skip_all => "Test::Pod::Coverage required for testing pod coverage" if $@; + +plan tests => 1; + +pod_coverage_ok('XML::Writer'); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Writer-0.601/t/pod.t new/XML-Writer-0.602/t/pod.t --- old/XML-Writer-0.601/t/pod.t 1970-01-01 01:00:00.000000000 +0100 +++ new/XML-Writer-0.602/t/pod.t 2006-09-23 23:26:58.000000000 +0200 @@ -0,0 +1,8 @@ +use Test::More; + +eval "use Test::Pod 1.00"; +plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; + +plan tests => 1; + +pod_file_ok('Writer.pm'); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-XML-Simple
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-XML-Simple checked in at Thu Dec 14 02:05:35 CET 2006. -------- --- perl-XML-Simple/perl-XML-Simple.changes 2006-10-05 12:23:06.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-XML-Simple/perl-XML-Simple.changes 2006-12-13 13:32:05.000000000 +0100 @@ -1,0 +2,8 @@ +Wed Dec 13 12:20:35 CET 2006 - anicka(a)suse.cz + +- update to 2.16 + * Added test/fix for bad GroupTags option + * Added new_hashref() hook method + * refactored cache save/restore methods for easier overriding + +------------------------------------------------------------------- Old: ---- XML-Simple-2.15-test.diff XML-Simple-2.15.tar.bz2 New: ---- XML-Simple-2.16-test.diff XML-Simple-2.16.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-XML-Simple.spec ++++++ --- /var/tmp/diff_new_pack.TV9kPR/_old 2006-12-14 02:05:27.000000000 +0100 +++ /var/tmp/diff_new_pack.TV9kPR/_new 2006-12-14 02:05:27.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-XML-Simple (Version 2.15) +# spec file for package perl-XML-Simple (Version 2.16) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -12,7 +12,7 @@ Name: perl-XML-Simple BuildRequires: perl-XML-Parser -Version: 2.15 +Version: 2.16 Release: 1 Requires: expat perl-XML-Parser Requires: perl = %{perl_version} @@ -59,6 +59,11 @@ /var/adm/perl-modules/%{name} %changelog -n perl-XML-Simple +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 2.16 + * Added test/fix for bad GroupTags option + * Added new_hashref() hook method + * refactored cache save/restore methods for easier overriding * Thu Oct 05 2006 - anicka(a)suse.cz - update to 2.15 * Makefile.PL changes: reject known-bad PurePerl and RTF parser ++++++ XML-Simple-2.15-test.diff -> XML-Simple-2.16-test.diff ++++++ ++++++ XML-Simple-2.15.tar.bz2 -> XML-Simple-2.16.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/Changes new/XML-Simple-2.16/Changes --- old/XML-Simple-2.15/Changes 2006-10-03 03:05:14.000000000 +0200 +++ new/XML-Simple-2.16/Changes 2006-10-30 09:21:59.000000000 +0100 @@ -1,5 +1,10 @@ Revision history for Perl module XML::Simple +2.16 Oct 30 2006 + - Added test/fix for bad GroupTags option (report from Lee Goddard) + - Added new_hashref() hook method + - refactored cache save/restore methods for easier overriding + 2.15 Oct 03 2006 - Makefile.PL changes: reject known-bad PurePerl and RTF parser modules; default to XML::SAX::Expat if no parser installed diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/MANIFEST new/XML-Simple-2.16/MANIFEST --- old/XML-Simple-2.15/MANIFEST 2005-01-29 06:18:41.000000000 +0100 +++ new/XML-Simple-2.16/MANIFEST 2006-10-08 09:38:24.000000000 +0200 @@ -18,6 +18,7 @@ t/8_Namespaces.t t/9_Strict.t t/A_XMLParser.t +t/B_Hooks.t t/desertnet.src t/lib/TagsToUpper.pm t/srt.xml diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/META.yml new/XML-Simple-2.16/META.yml --- old/XML-Simple-2.15/META.yml 2006-10-03 03:28:23.000000000 +0200 +++ new/XML-Simple-2.16/META.yml 2006-10-30 09:28:27.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: XML-Simple -version: 2.15 +version: 2.16 abstract: Easy API to maintain XML (esp config files) license: perl author: Grant McLean <grantm(a)cpan.org> diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/README new/XML-Simple-2.16/README --- old/XML-Simple-2.15/README 2006-10-02 11:20:02.000000000 +0200 +++ new/XML-Simple-2.16/README 2006-10-30 09:20:19.000000000 +0100 @@ -56,7 +56,7 @@ STATUS - This version (2.15) is the current stable release. + This version (2.16) is the current stable release. Please send any feedback to the author: grantm(a)cpan.org diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/lib/XML/Simple.pm new/XML-Simple-2.16/lib/XML/Simple.pm --- old/XML-Simple-2.15/lib/XML/Simple.pm 2006-10-03 03:07:48.000000000 +0200 +++ new/XML-Simple-2.16/lib/XML/Simple.pm 2006-10-30 09:28:13.000000000 +0100 @@ -1,4 +1,4 @@ -# $Id: Simple.pm,v 1.28 2006/10/03 01:07:48 grantm Exp $ +# $Id: Simple.pm,v 1.34 2006/10/30 08:28:13 grantm Exp $ package XML::Simple; @@ -18,7 +18,7 @@ require XML::Simple; - my $xs = new XML::Simple(options); + my $xs = XML::Simple->new(options); my $ref = $xs->XMLin([<xml file or string>] [, <options>]); @@ -53,15 +53,10 @@ @ISA = qw(Exporter); @EXPORT = qw(XMLin XMLout); @EXPORT_OK = qw(xml_in xml_out); -$VERSION = '2.15'; +$VERSION = '2.16'; $PREFERRED_PARSER = undef; my $StrictMode = 0; -my %CacheScheme = ( - storable => [ \&StorableSave, \&StorableRestore ], - memshare => [ \&MemShareSave, \&MemShareRestore ], - memcopy => [ \&MemCopySave, \&MemCopyRestore ] - ); my @KnownOptIn = qw(keyattr keeproot forcecontent contentkey noattr searchpath forcearray cache suppressempty parseropts @@ -135,6 +130,25 @@ ############################################################################## +# Sub: _get_object() +# +# Helper routine called from XMLin() and XMLout() to create an object if none +# was provided. Note, this routine does mess with the caller's @_ array. +# + +sub _get_object { + my $self; + if($_[0] and UNIVERSAL::isa($_[0], 'XML::Simple')) { + $self = shift; + } + else { + $self = XML::Simple->new(); + } + + return $self; +} + +############################################################################## # Sub/Method: XMLin() # # Exported routine for slurping XML into a hashref - see pod for info. @@ -146,17 +160,7 @@ # sub XMLin { - - # If this is not a method call, create an object - - my $self; - if($_[0] and UNIVERSAL::isa($_[0], 'XML::Simple')) { - $self = shift; - } - else { - $self = new XML::Simple(); - } - + my $self = &_get_object; # note, @_ is passed implicitly my $string = shift; @@ -197,10 +201,8 @@ if($self->{opt}->{cache}) { foreach $scheme (@{$self->{opt}->{cache}}) { - croak "Unsupported caching scheme: $scheme" - unless($CacheScheme{$scheme}); - - my $opt = $CacheScheme{$scheme}->[1]->($filename); + my $method = 'cache_read_' . $scheme; + my $opt = $self->$method($filename); return($opt) if($opt); } } @@ -232,7 +234,8 @@ } if($self->{opt}->{cache}) { - $CacheScheme{$self->{opt}->{cache}->[0]}->[0]->($ref, $filename); + my $method = 'cache_write_' . $self->{opt}->{cache}->[0]; + $self->$method($ref, $filename); } return($ref); @@ -327,7 +330,7 @@ carp "'nsexpand' option requires XML::SAX"; } - my $xp = new XML::Parser(Style => 'Tree', @{$self->{opt}->{parseropts}}); + my $xp = XML::Parser->new(Style => 'Tree', @{$self->{opt}->{parseropts}}); my($tree); if($filename) { # $tree = $xp->parsefile($filename); # Changed due to prob w/mod_perl @@ -345,17 +348,16 @@ ############################################################################## -# Sub: StorableSave() +# Method: cache_write_storable() # # Wrapper routine for invoking Storable::nstore() to cache a parsed data # structure. # -sub StorableSave { - my($data, $filename) = @_; +sub cache_write_storable { + my($self, $data, $filename) = @_; - my $cachefile = $filename; - $cachefile =~ s{(\.xml)?$}{.stor}; + my $cachefile = $self->storable_filename($filename); require Storable; # We didn't need it until now @@ -371,18 +373,17 @@ ############################################################################## -# Sub: StorableRestore() +# Method: cache_read_storable() # # Wrapper routine for invoking Storable::retrieve() to read a cached parsed # data structure. Only returns cached data if the cache file exists and is # newer than the source XML file. # -sub StorableRestore { - my($filename) = @_; +sub cache_read_storable { + my($self, $filename) = @_; - my $cachefile = $filename; - $cachefile =~ s{(\.xml)?$}{.stor}; + my $cachefile = $self->storable_filename($filename); return unless(-r $cachefile); return unless((stat($cachefile))[9] > (stat($filename))[9]); @@ -400,27 +401,43 @@ ############################################################################## -# Sub: MemShareSave() +# Method: storable_filename() +# +# Translates the supplied source XML filename into a filename for the storable +# cached data. A '.stor' suffix is added after stripping an optional '.xml' +# suffix. +# + +sub storable_filename { + my($self, $cachefile) = @_; + + $cachefile =~ s{(\.xml)?$}{.stor}; + return $cachefile; +} + + +############################################################################## +# Method: cache_write_memshare() # # Takes the supplied data structure reference and stores it away in a global # hash structure. # -sub MemShareSave { - my($data, $filename) = @_; +sub cache_write_memshare { + my($self, $data, $filename) = @_; $MemShareCache{$filename} = [time(), $data]; } ############################################################################## -# Sub: MemShareRestore() +# Method: cache_read_memshare() # # Takes a filename and looks in a global hash for a cached parsed version. # -sub MemShareRestore { - my($filename) = @_; +sub cache_read_memshare { + my($self, $filename) = @_; return unless($MemShareCache{$filename}); return unless($MemShareCache{$filename}->[0] > (stat($filename))[9]); @@ -431,14 +448,14 @@ ############################################################################## -# Sub: MemCopySave() +# Method: cache_write_memcopy() # # Takes the supplied data structure and stores a copy of it in a global hash # structure. # -sub MemCopySave { - my($data, $filename) = @_; +sub cache_write_memcopy { + my($self, $data, $filename) = @_; require Storable; # We didn't need it until now @@ -447,14 +464,14 @@ ############################################################################## -# Sub: MemCopyRestore() +# Method: cache_read_memcopy() # # Takes a filename and looks in a global hash for a cached parsed version. # Returns a reference to a copy of that data structure. # -sub MemCopyRestore { - my($filename) = @_; +sub cache_read_memcopy { + my($self, $filename) = @_; return unless($MemCopyCache{$filename}); return unless($MemCopyCache{$filename}->[0] > (stat($filename))[9]); @@ -474,16 +491,7 @@ # sub XMLout { - - # If this is not a method call, create an object - - my $self; - if($_[0] and UNIVERSAL::isa($_[0], 'XML::Simple')) { - $self = shift; - } - else { - $self = new XML::Simple(); - } + my $self = &_get_object; # note, @_ is passed implicitly croak "XMLout() requires at least one argument" unless(@_); my $ref = shift; @@ -682,6 +690,11 @@ } if($opt->{cache}) { $_ = lc($_) foreach (@{$opt->{cache}}); + foreach my $scheme (@{$opt->{cache}}) { + my $method = 'cache_read_' . $scheme; + croak "Unsupported caching scheme: $scheme" + unless($self->can($method)); + } } if(exists($opt->{parseropts})) { @@ -791,8 +804,14 @@ # make sure there's nothing weird in {grouptags} - if($opt->{grouptags} and !UNIVERSAL::isa($opt->{grouptags}, 'HASH')) { - croak "Illegal value for 'GroupTags' option - expected a hashref"; + if($opt->{grouptags}) { + croak "Illegal value for 'GroupTags' option - expected a hashref" + unless UNIVERSAL::isa($opt->{grouptags}, 'HASH'); + + while(my($key, $val) = each %{$opt->{grouptags}}) { + next if $key ne $val; + croak "Bad value in GroupTags: '$key' => '$val'"; + } } @@ -1125,7 +1144,7 @@ my $name = shift; my $arrayref = shift; - my $hashref = {}; + my $hashref = $self->new_hashref; my($i, $key, $val, $flag); @@ -1197,6 +1216,20 @@ ############################################################################## +# Method: new_hashref() +# +# This is a hook routine for overriding in a sub-class. Some people believe +# that using Tie::IxHash here will solve order-loss problems. +# + +sub new_hashref { + my $self = shift; + + return { @_ }; +} + + +############################################################################## # Method: collapse_content() # # Helper routine for array_to_hash @@ -1867,7 +1900,7 @@ An IO::Handle object will be read to EOF and its contents parsed. eg: - $fh = new IO::File('/etc/params.xml'); + $fh = IO::File->new('/etc/params.xml'); $ref = XMLin($fh); =back @@ -2618,7 +2651,7 @@ First create an XML::Simple parser object with your preferred defaults: - my $xs = new XML::Simple(ForceArray => 1, KeepRoot => 1); + my $xs = XML::Simple->new(ForceArray => 1, KeepRoot => 1); then call C<XMLin()> or C<XMLout()> as a method of that object: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/t/1_XMLin.t new/XML-Simple-2.16/t/1_XMLin.t --- old/XML-Simple-2.15/t/1_XMLin.t 2006-10-03 03:07:48.000000000 +0200 +++ new/XML-Simple-2.16/t/1_XMLin.t 2006-10-30 09:28:13.000000000 +0100 @@ -1,4 +1,4 @@ -# $Id: 1_XMLin.t,v 1.24 2006/10/03 01:07:48 grantm Exp $ +# $Id: 1_XMLin.t,v 1.25 2006/10/30 08:28:13 grantm Exp $ # vim: syntax=perl use strict; @@ -25,8 +25,9 @@ $@ = ''; eval "use XML::Simple;"; is($@, '', 'Module compiled OK'); -unless($XML::Simple::VERSION eq '2.15') { - diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected 2.15)"); +my $version = '2.16'; +unless($XML::Simple::VERSION eq $version) { + diag("Warning: XML::Simple::VERSION = $XML::Simple::VERSION (expected $version)"); } diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/t/2_XMLout.t new/XML-Simple-2.16/t/2_XMLout.t --- old/XML-Simple-2.15/t/2_XMLout.t 2006-09-19 11:52:34.000000000 +0200 +++ new/XML-Simple-2.16/t/2_XMLout.t 2006-10-05 10:28:05.000000000 +0200 @@ -1,4 +1,4 @@ -# $Id: 2_XMLout.t,v 1.16 2006/09/19 09:52:34 grantm Exp $ +# $Id: 2_XMLout.t,v 1.17 2006/10/05 08:28:05 grantm Exp $ # vim: syntax=perl use strict; @@ -6,7 +6,7 @@ $^W = 1; -plan tests => 198; +plan tests => 201; ############################################################################## @@ -869,7 +869,15 @@ # </opt> # -$_ = XMLout($ref, grouptags => {dirs => 'dir'}, noattr => 1); +$@ = ''; +$_ = eval { XMLout($ref, grouptags => {dirs => 'dirs'}, noattr => 1); }; +ok($@, 'bad GroupTags value was caught'); +like("$@", qr{Bad value in GroupTags: 'dirs' => 'dirs'}, + 'error message looks good'); + +$@ = ''; +$_ = eval { XMLout($ref, grouptags => {dirs => 'dir'}, noattr => 1); }; +ok(!$@, 'good GroupTags value caused no error'); ok(s{\s*<(prefix)>before</\1>\s*}{ELEM}s, 'prefix OK'); ok(s{\s*<(suffix)>after</\1>\s*}{ELEM}s, 'suffix OK'); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/XML-Simple-2.15/t/B_Hooks.t new/XML-Simple-2.16/t/B_Hooks.t --- old/XML-Simple-2.15/t/B_Hooks.t 1970-01-01 01:00:00.000000000 +0100 +++ new/XML-Simple-2.16/t/B_Hooks.t 2006-10-12 10:57:52.000000000 +0200 @@ -0,0 +1,136 @@ +# $Id: B_Hooks.t,v 1.2 2006/10/12 08:57:52 grantm Exp $ +# vim: syntax=perl + +use strict; +use Test::More; +use File::Spec; + +plan tests => 12; + +use_ok('XML::Simple'); + +SKIP: { + eval { require Tie::IxHash }; + + skip "Tie::IxHash not installed", 3 if $@; + + $@ = ''; + eval <<'EOF'; + + package SimpleOrder; + + use base qw(XML::Simple); + use Tie::IxHash; + + sub new_hashref { + my $self = shift; + my %hash; + tie %hash, 'Tie::IxHash', @_; + return \%hash; + } +EOF + ok(!$@, 'no errors processing SimpleOrder'); + + my $xs = SimpleOrder->new; + my $xml = q{ + <nums> + <num id="one">I</num> + <num id="two">II</num> + <num id="three">III</num> + <num id="four">IV</num> + <num id="five">V</num> + <num id="six">VI</num> + <num id="seven">VII</num> + </nums> + }; + my $expected = { + 'one' => { 'content' => 'I' }, + 'two' => { 'content' => 'II' }, + 'three' => { 'content' => 'III' }, + 'four' => { 'content' => 'IV' }, + 'five' => { 'content' => 'V' }, + 'six' => { 'content' => 'VI' }, + 'seven' => { 'content' => 'VII' }, + }; + + my $data = $xs->xml_in($xml); + + is_deeply($data->{num}, $expected, 'hash content looks good'); + + is_deeply( + [ keys %{$data->{num}} ], + [ qw(one two three four five six seven) ], + 'order of the hash keys looks good too' + ); + +} + + +my $xs = XML::Simple->new(cache => 'storable'); +my $sx = ElbarotsXS->new(cache => 'storable'); + +isa_ok($sx, 'XML::Simple', 'object of class ElbarotsXS'); + +my $src_file = File::Spec->catfile('t', 'test1.xml'); + +is( + $xs->storable_filename($src_file), + File::Spec->catfile('t', 'test1.stor'), + 'default storable cache filename looks good' +); + +my $cache_file = File::Spec->catfile('t', '1tset.stor'),; +is( + $sx->storable_filename($src_file), + $cache_file, + 'overridden storable cache filename looks good' +); + +SKIP: { + eval { require Storable }; + + skip "Storable not installed", 2 if $@; + + unlink($cache_file), + ok(! -e $cache_file, 'overridden cache file does not exist before parse'); + my $data = $sx->xml_in($src_file); + ok(-e $cache_file, 'overridden cache file does exist after parse'); + unlink($cache_file), +} + +my $data = eval { + $xs = XML::Simple->new(cache => 'floogle'); + $xs->xml_in($src_file); +}; +ok($@, 'bad cache scheme was rejected'); + +$data = eval { + $sx = ElbarotsXS->new(cache => 'floogle'); + $sx->xml_in($src_file); +}; +ok(! $@, 'custom cache scheme was not rejected'); +is_deeply( + $data, + { data => 'floogle' }, + 'custom cache reading method delivered the goods' +); + +exit 0; + + +package ElbarotsXS; + +use base 'XML::Simple'; + +sub storable_filename { + my($self, $path) = @_; + + my($vol, $dir, $file) = File::Spec->splitpath( $path ); + $file =~ s{\.xml$}{}; + + return File::Spec->catpath($vol, $dir, reverse($file) . '.stor'); +} + +sub cache_read_floogle { + return { data => 'floogle' }; +} ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-XML-LibXML
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-XML-LibXML checked in at Thu Dec 14 02:05:23 CET 2006. -------- --- perl-XML-LibXML/perl-XML-LibXML.changes 2006-09-25 15:24:54.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-XML-LibXML/perl-XML-LibXML.changes 2006-12-13 14:21:15.000000000 +0100 @@ -1,0 +2,20 @@ +Wed Dec 13 14:19:52 CET 2006 - anicka(a)suse.cz + +- update to 1.62001 + * interface to libxml2's pull-parser XML::LibXML::Reader + * make error messages intended to the user report the line of the + application call rather than that of the internal XS call + * XML::LibXML::Attr->serializeContent added + * fix getAttributeNode etc. w.r.t. + * warn if runtime libxml2 is older than the one used at the + compile time + * if compiled against libxml2 >= 2.6.27, new parse_html_* + implementation is used allowing encoding and other options + to be passed to the parser + * DOM-compliant nodeNames: #comment, #text, #cdata, #document, + #document-fragment + * toString on empty text node returns empty string, not undef + * cloneNode copies attributes on an element as required + by the DOM spec + +------------------------------------------------------------------- Old: ---- XML-LibXML-1.61.tar.bz2 New: ---- XML-LibXML-1.62001.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-XML-LibXML.spec ++++++ --- /var/tmp/diff_new_pack.wifvO1/_old 2006-12-14 02:04:51.000000000 +0100 +++ /var/tmp/diff_new_pack.wifvO1/_new 2006-12-14 02:04:51.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-XML-LibXML (Version 1.61) +# spec file for package perl-XML-LibXML (Version 1.62001) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -12,8 +12,9 @@ Name: perl-XML-LibXML BuildRequires: libxml2-devel libxml2-test -Version: 1.61 +Version: 1.62001 Release: 1 +%define real_version 1.62 Requires: perl = %{perl_version} perl-XML-LibXML-Common perl-XML-SAX Autoreqprov: on Group: Development/Libraries/Perl @@ -33,7 +34,8 @@ %prep -%setup -q -n XML-LibXML-%{version} +#%setup -q -n XML-LibXML-%{version} +%setup -q -n XML-LibXML-%{real_version} %build perl Makefile.PL @@ -56,6 +58,23 @@ /var/adm/perl-modules/%{name} %changelog -n perl-XML-LibXML +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 1.62001 + * interface to libxml2's pull-parser XML::LibXML::Reader + * make error messages intended to the user report the line of the + application call rather than that of the internal XS call + * XML::LibXML::Attr->serializeContent added + * fix getAttributeNode etc. w.r.t. + * warn if runtime libxml2 is older than the one used at the + compile time + * if compiled against libxml2 >= 2.6.27, new parse_html_* + implementation is used allowing encoding and other options + to be passed to the parser + * DOM-compliant nodeNames: #comment, #text, #cdata, #document, + [#]document-fragment + * toString on empty text node returns empty string, not undef + * cloneNode copies attributes on an element as required + by the DOM spec * Mon Sep 25 2006 - anicka(a)suse.cz - update to 1.61 * get{Elements,Children}By{TagName,TagNameNS,LocalName} now ++++++ XML-LibXML-1.61.tar.bz2 -> XML-LibXML-1.62001.tar.bz2 ++++++ ++++ 12499 lines of diff (skipped) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-PDL
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-PDL checked in at Thu Dec 14 02:05:21 CET 2006. -------- --- perl-PDL/perl-PDL.changes 2006-09-13 15:03:02.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-PDL/perl-PDL.changes 2006-12-13 10:47:30.000000000 +0100 @@ -1,0 +2,5 @@ +Wed Dec 13 10:47:03 CET 2006 - anicka(a)suse.cz + +- fix invalid operation in IIS.xs + +------------------------------------------------------------------- New: ---- PDL-2.4.3-undefined-operation.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-PDL.spec ++++++ --- /var/tmp/diff_new_pack.RNkszw/_old 2006-12-14 02:04:46.000000000 +0100 +++ /var/tmp/diff_new_pack.RNkszw/_new 2006-12-14 02:04:46.000000000 +0100 @@ -11,13 +11,13 @@ Name: perl-PDL BuildRequires: f2c fftw-devel freeglut-devel gcc-fortran gsl libdrm-devel libstdc++-devel libusb perl-Curses perl-ExtUtils-F77 perl-Inline resmgr xorg-x11 xorg-x11-Xvfb -License: GPL, BSD +License: BSD License and BSD-like, GNU General Public License (GPL) Group: Development/Libraries/Perl Provides: PDL perl_pdl Obsoletes: perl_pdl Autoreqprov: on Version: 2.4.3 -Release: 1 +Release: 26 Summary: PDL - perlDL module extension for perl Source: ftp://www.cpan.org/CPAN/modules/by-module/PDL/PDL-%{version}.tar.bz2 Patch: PDL-%{version}.diff @@ -28,6 +28,7 @@ Patch7: PDL-%{version}-prototypes.diff Patch8: PDL-%{version}-makefile.diff Patch9: PDL-%{version}-qsortvec.diff +Patch10: PDL-%{version}-undefined-operation.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build URL: http://cpan.org/modules/by-module/PDL/ @@ -56,6 +57,7 @@ %patch7 %patch8 %patch9 +%patch10 %build perl Makefile.PL @@ -99,6 +101,8 @@ /var/adm/perl-modules/perl-PDL %changelog -n perl-PDL +* Wed Dec 13 2006 - anicka(a)suse.cz +- fix invalid operation in IIS.xs * Wed Sep 13 2006 - anicka(a)suse.cz - update to 2.4.3 * Modified gsl_interp.pd and gsl_random.pd to pass pointers ++++++ PDL-2.4.3-undefined-operation.diff ++++++ --- Graphics/IIS/iis.pd +++ Graphics/IIS/iis.pd @@ -429,11 +429,12 @@ _iiscur_int() PPCODE: STRLEN n_a; + STRLEN n_b; float x,y; char ch; int frame = (int)SvIV( perl_get_sv("iisframe", FALSE) ); - iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_a), + iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_b), (int)SvIV( perl_get_sv("fbconfig", FALSE) ), (int)SvIV( perl_get_sv("fb_x", FALSE) ), (int)SvIV( perl_get_sv("fb_y", FALSE) ) ); @@ -470,13 +471,14 @@ char title[33]; /* 32 chars + null terminator */ int chan; STRLEN n_a; + STRLEN n_b; /* Open pipes etc */ if (frame<1 || frame>4) barf("$iisframe must be in range 1--4"); - iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_a), + iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_b), (int)SvIV( perl_get_sv("fbconfig", FALSE) ), (int)SvIV( perl_get_sv("fb_x", FALSE) ), (int)SvIV( perl_get_sv("fb_y", FALSE) ) ); @@ -607,13 +609,14 @@ int frame = (int)SvIV( perl_get_sv("iisframe", FALSE) ); STRLEN n_a; + STRLEN n_b; /* Open pipes etc */ if (frame<1 || frame>4) barf("$iisframe must be in range 1--4"); - iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_a), + iis_open(SvPV(perl_get_sv("fifi",FALSE),n_a),SvPV(perl_get_sv("fifo",FALSE),n_b), (int)SvIV( perl_get_sv("fbconfig", FALSE) ), (int)SvIV( perl_get_sv("fb_x", FALSE) ), (int)SvIV( perl_get_sv("fb_y", FALSE) ) ); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-Net-Netmask
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-Net-Netmask checked in at Thu Dec 14 02:04:45 CET 2006. -------- --- perl-Net-Netmask/perl-Net-Netmask.changes 2006-10-19 17:06:58.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Net-Netmask/perl-Net-Netmask.changes 2006-12-13 13:05:49.000000000 +0100 @@ -1,0 +2,6 @@ +Wed Dec 13 12:01:37 CET 2006 - anicka(a)suse.cz + +- update to 1.9015 + * Fix bug: cidrs2inverse wouldn't notice /32-sized leftovers. + +------------------------------------------------------------------- Old: ---- Net-Netmask-1.9014.tar.bz2 New: ---- Net-Netmask-1.9015.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Net-Netmask.spec ++++++ --- /var/tmp/diff_new_pack.yRqxSD/_old 2006-12-14 02:04:16.000000000 +0100 +++ /var/tmp/diff_new_pack.yRqxSD/_new 2006-12-14 02:04:16.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-Net-Netmask (Version 1.9014) +# spec file for package perl-Net-Netmask (Version 1.9015) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,7 +11,7 @@ # norootforbuild Name: perl-Net-Netmask -Version: 1.9014 +Version: 1.9015 Release: 1 Provides: perl_nm Obsoletes: perl_nm @@ -57,6 +57,9 @@ /var/adm/perl-modules/%{name} %changelog -n perl-Net-Netmask +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 1.9015 + * Fix bug: cidrs2inverse wouldn't notice /32-sized leftovers. * Thu Oct 19 2006 - anicka(a)suse.cz - update to 1.9014 * Fix bug: cidrs2inverse wouldn't notice /32-sized holes. ++++++ Net-Netmask-1.9014.tar.bz2 -> Net-Netmask-1.9015.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Net-Netmask-1.9014/CHANGELOG new/Net-Netmask-1.9015/CHANGELOG --- old/Net-Netmask-1.9014/CHANGELOG 2006-10-14 05:13:38.000000000 +0200 +++ new/Net-Netmask-1.9015/CHANGELOG 2006-11-30 23:06:09.000000000 +0100 @@ -1,5 +1,9 @@ += 2006/11/30 1.9015 -= 2006/10/13 1.9004 +Fix bug # 22662 reported by grjones at gmail: cidrs2inverse +wouldn't notice /32-sized leftovers. + += 2006/10/13 1.9014 Fix bug # 22085 reported by grjones at gmail: cidrs2inverse wouldn't notice /32-sized holes. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Net-Netmask-1.9014/META.yml new/Net-Netmask-1.9015/META.yml --- old/Net-Netmask-1.9014/META.yml 2006-10-14 05:20:46.000000000 +0200 +++ new/Net-Netmask-1.9015/META.yml 2006-11-30 23:06:29.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: Net-Netmask -version: 1.9014 +version: 1.9015 version_from: Netmask.pm installdirs: site requires: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Net-Netmask-1.9014/Netmask.pm new/Net-Netmask-1.9015/Netmask.pm --- old/Net-Netmask-1.9014/Netmask.pm 2006-10-14 05:12:21.000000000 +0200 +++ new/Net-Netmask-1.9015/Netmask.pm 2006-11-30 23:03:06.000000000 +0100 @@ -3,7 +3,7 @@ package Net::Netmask; use vars qw($VERSION); -$VERSION = 1.9014; +$VERSION = 1.9015; require Exporter; @ISA = qw(Exporter); @@ -518,7 +518,7 @@ my $last = $first + $outer->size() -1; shift(@cidrs) while $cidrs[0] && $cidrs[0]->{IBASE} + $cidrs[0]->size < $first; my @r; - while (@cidrs && $first < $last) { + while (@cidrs && $first <= $last) { if ($first < $cidrs[0]->{IBASE}) { if ($last <= $cidrs[0]->{IBASE}-1) { return (@r, irange2cidrlist($first, $last)); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Net-Netmask-1.9014/t/netmasks.t new/Net-Netmask-1.9015/t/netmasks.t --- old/Net-Netmask-1.9014/t/netmasks.t 2006-10-14 05:11:02.000000000 +0200 +++ new/Net-Netmask-1.9015/t/netmasks.t 2006-11-30 23:05:03.000000000 +0100 @@ -1,6 +1,6 @@ #!/usr/bin/perl -I. -w -print "1..277\n"; +print "1..282\n"; use Net::Netmask; use Net::Netmask qw(sameblock cmpblocks); @@ -574,3 +574,63 @@ } $test++; } + +{ + my $obj1 = new2 Net::Netmask ('1.0.0.4/32'); + my $obj2 = new2 Net::Netmask ('1.0.0.0/8'); + my @leftover = cidrs2inverse($obj1, $obj2); + if (@leftover) { + print "not ok $test # leftover = @leftover\n"; + } else { + print "ok $test\n"; + } + $test++; +} + +{ + my $obj1 = new2 Net::Netmask ('1.0.0.4/32'); + my $obj2 = new2 Net::Netmask ('1.0.0.4/32'); + my @leftover = cidrs2inverse($obj1, $obj2); + if (@leftover) { + print "not ok $test # leftover2 = @leftover\n"; + } else { + print "ok $test\n"; + } + $test++; +} + +{ + my $obj1 = new2 Net::Netmask ('1.0.0.4/32'); + my $obj2 = new2 Net::Netmask ('1.0.0.6/32'); + my @leftover = cidrs2inverse($obj1, $obj2); + if (@leftover == 1 && "$leftover[0]" eq '1.0.0.4/32') { + print "ok $test\n"; + } else { + print "not ok $test # leftover3 = @leftover\n"; + } + $test++; +} + +{ + my $obj1 = new2 Net::Netmask ('1.0.0.4/31'); + my $obj2 = new2 Net::Netmask ('1.0.0.5/32'); + my @leftover = cidrs2inverse($obj1, $obj2); + if (@leftover == 1 && "$leftover[0]" eq '1.0.0.4/32') { + print "ok $test\n"; + } else { + print "not ok $test # leftover3 = @leftover\n"; + } + $test++; +} + +{ + my $obj1 = new2 Net::Netmask ('1.0.0.4/31'); + my $obj2 = new2 Net::Netmask ('1.0.0.4/32'); + my @leftover = cidrs2inverse($obj1, $obj2); + if (@leftover == 1 && "$leftover[0]" eq '1.0.0.5/32') { + print "ok $test\n"; + } else { + print "not ok $test # leftover3 = @leftover\n"; + } + $test++; +} ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-MIME-Types
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-MIME-Types checked in at Thu Dec 14 02:04:39 CET 2006. -------- --- perl-MIME-Types/perl-MIME-Types.changes 2006-09-13 19:42:46.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-MIME-Types/perl-MIME-Types.changes 2006-12-13 13:38:41.000000000 +0100 @@ -1,0 +2,9 @@ +Wed Dec 13 12:05:26 CET 2006 - anicka(a)suse.cz + +- update to 1.18 + * application/atom+xml and image/svg+xml + * audio/3gpp2 and video/3gpp2 + * application/octet-stream += dmg, so, dll + and videa/x-flv. + +------------------------------------------------------------------- Old: ---- MIME-Types-1.17.tar.bz2 New: ---- MIME-Types-1.18.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MIME-Types.spec ++++++ --- /var/tmp/diff_new_pack.qIpmRN/_old 2006-12-14 02:04:06.000000000 +0100 +++ /var/tmp/diff_new_pack.qIpmRN/_new 2006-12-14 02:04:06.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-MIME-Types (Version 1.17) +# spec file for package perl-MIME-Types (Version 1.18) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -11,7 +11,7 @@ Name: perl-MIME-Types URL: http://cpan.org/modules/by-module/MIME/ -Version: 1.17 +Version: 1.18 Release: 1 Requires: perl = %{perl_version} Autoreqprov: on @@ -53,6 +53,12 @@ /var/adm/perl-modules/perl-MIME-Types %changelog -n perl-MIME-Types +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 1.18 + * application/atom+xml and image/svg+xml + * audio/3gpp2 and video/3gpp2 + * application/octet-stream += dmg, so, dll + and videa/x-flv. * Wed Sep 13 2006 - anicka(a)suse.cz - update to 1.17 * application/rdf+xml ++++++ MIME-Types-1.17.tar.bz2 -> MIME-Types-1.18.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/ChangeLog new/MIME-Types-1.18/ChangeLog --- old/MIME-Types-1.17/ChangeLog 2006-08-13 10:32:43.000000000 +0200 +++ new/MIME-Types-1.18/ChangeLog 2006-11-17 21:21:07.000000000 +0100 @@ -6,6 +6,15 @@ **** Inform Austin Ziegler < mime-types(a)halostatue.ca> at each release, to **** update his Ruby port of the module. +version 1.18: Fri Nov 17 21:20:20 CET 2006 + + - [David Nesting] application/atom+xml and image/svg+xml + + - [Islue Hu] audio/3gpp2 and video/3gpp2 + + - [Stephen Steneken] application/octet-stream += dmg, so, dll + and videa/x-flv. + version 1.17: Sun Aug 13 10:32:37 CEST 2006 - [Hailin Hu] application/rdf+xml diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/MANIFEST new/MIME-Types-1.18/MANIFEST --- old/MIME-Types-1.17/MANIFEST 2006-08-13 10:32:43.000000000 +0200 +++ new/MIME-Types-1.18/MANIFEST 2006-11-17 21:21:09.000000000 +0100 @@ -1,6 +1,5 @@ ChangeLog MANIFEST -META.yml Module meta-data (added by MakeMaker) Makefile.PL README lib/MIME/Type.pm @@ -12,3 +11,4 @@ t/20types.t t/30export.t version +META.yml Module meta-data (added by MakeMaker) diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/META.yml new/MIME-Types-1.18/META.yml --- old/MIME-Types-1.17/META.yml 2006-08-13 10:32:45.000000000 +0200 +++ new/MIME-Types-1.18/META.yml 2006-11-17 21:21:08.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: MIME-Types -version: 1.17 +version: 1.18 version_from: version installdirs: site requires: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/README new/MIME-Types-1.18/README --- old/MIME-Types-1.17/README 2006-08-13 10:06:19.000000000 +0200 +++ new/MIME-Types-1.18/README 2006-11-17 21:21:07.000000000 +0100 @@ -8,7 +8,7 @@ The first special data item is whether a data type is binary or ascii. This is required for correctly encoding e-mail -attachments, and implemented for the Mail::Box v2.01 module. +attachments, and implemented for the Mail::Box module. Improvements and additions please to Mark Overmeer, <mimetypes(a)overmeer.net> diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/lib/MIME/Type.pm new/MIME-Types-1.18/lib/MIME/Type.pm --- old/MIME-Types-1.17/lib/MIME/Type.pm 2006-08-13 10:32:43.000000000 +0200 +++ new/MIME-Types-1.18/lib/MIME/Type.pm 2006-11-17 21:21:07.000000000 +0100 @@ -1,6 +1,6 @@ package MIME::Type; use vars '$VERSION'; -$VERSION = '1.17'; +$VERSION = '1.18'; use strict; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/lib/MIME/Type.pod new/MIME-Types-1.18/lib/MIME/Type.pod --- old/MIME-Types-1.17/lib/MIME/Type.pod 2006-08-13 10:32:43.000000000 +0200 +++ new/MIME-Types-1.18/lib/MIME/Type.pod 2006-11-17 21:21:07.000000000 +0100 @@ -82,11 +82,11 @@ Create (I<instantiate>) a new MIME::Type object which manages one mime type. --Option --Defined in --Default + Option --Defined in --Default encoding <depends on type> extensions [] simplified <derived from type> - system C<undef> + system undef type <required> . encoding '7bit'|'8bit'|'base64'|'quoted-printable' @@ -289,7 +289,7 @@ =head1 COPYRIGHTS -Module version 1.17. +Module version 1.18. Written by Mark Overmeer (mimetypes(a)overmeer.net) See the ChangeLog for other contributors. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/lib/MIME/Types.pm new/MIME-Types-1.18/lib/MIME/Types.pm --- old/MIME-Types-1.17/lib/MIME/Types.pm 2006-08-13 10:32:43.000000000 +0200 +++ new/MIME-Types-1.18/lib/MIME/Types.pm 2006-11-17 21:21:07.000000000 +0100 @@ -1,7 +1,7 @@ package MIME::Types; use vars '$VERSION'; -$VERSION = '1.17'; +$VERSION = '1.18'; use strict; @@ -42,7 +42,7 @@ next if $args->{only_complete} && ! $extensions; my $extent = $extensions ? [ split /\,/, $extensions ] : undef; - + my $simplified = MIME::Type->simplified($type); push @{$list{$simplified}}, MIME::Type->new ( type => $type @@ -126,7 +126,7 @@ $self->create_type_index unless keys %type_index; return values %type_index; } - + #------------------------------------------- @@ -136,7 +136,7 @@ return keys %type_index; } - + #------------------------------------------- @@ -205,12 +205,13 @@ # Internet media type registry is at # http://www.iana.org/assignments/media-types/ -$mime_type_definitions = <<MIMETYPES; +$mime_type_definitions = <<__MIMETYPES__; application/activemessage application/andrew-inset ez application/appledouble base64 application/applefile base64 application/atomicmail +application/atom+xml atom 8bit application/batch-SMTP application/beep+xml application/cals-1840 @@ -249,7 +250,7 @@ application/news-transmission application/ocsp-request orq application/ocsp-response ors -application/octet-stream bin,dms,lha,lzh,exe,class,ani,pgp base64 +application/octet-stream bin,dms,lha,lzh,exe,class,ani,pgp,so,dll,dmg base64 application/oda oda application/ogg ogg application/parityfec @@ -371,7 +372,7 @@ application/vnd.groove-vcard application/vnd.hbci hbci,hbc,kom,upa,pkd,bpd application/vnd.hhe.lesson-player les -application/vnd.hp-HPGL plt,hpgl +application/vnd.hp-HPGL plt,hpgl application/vnd.hp-hpid application/vnd.hp-hps application/vnd.hp-PCL @@ -600,7 +601,7 @@ application/x-excel application/x-fractals application/x-futuresplash spl -application/x-ghostview +application/x-ghostview application/x-gtar gtar,tgz,tbz2,tbz base64 application/x-gunzip application/x-gzip gz base64 @@ -670,7 +671,8 @@ application/x-x509-ca-cert crt base64 application/zip zip base64 audio/32kadpcm -audio/3gpp 3gpp +audio/3gpp +audio/3gpp2 audio/AMR amr base64 audio/AMR-WB awb base64 audio/basic au,snd base64 @@ -730,7 +732,7 @@ audio/vnd.nuera.ecelp7470 ecelp7470 audio/vnd.nuera.ecelp9600 ecelp9600 audio/vnd.octel.sbc -audio/vnd.qcelp +audio/vnd.qcelp audio/vnd.rhetorex.32kadpcm audio/vnd.sealedmedia.softseal.mpeg smp3,smp,s1m audio/vnd.vmx.cvsd @@ -755,6 +757,7 @@ image/png png base64 image/prs.btif image/prs.pti +image/svg+xml svg 8bit image/t38 image/targa tga image/tiff-fx @@ -874,7 +877,8 @@ text/x-sgml sgml,sgm 8bit text/x-vCalendar vcs 8bit text/x-vCard vcf 8bit -video/3gpp 3gp,3gpp +video/3gpp 3gp,3gpp base64 +video/3gpp2 3g2,3gpp2 base64 video/BMPEG video/BT656 video/CelB @@ -911,6 +915,7 @@ video/vnd.sealed.swf sswf,ssw video/vnd.vivo viv,vivo video/x-fli fli base64 +video/x-flv flv base64 video/x-ms-asf asf,asx video/x-ms-wmv wmv video/x-msvideo avi base64 @@ -926,6 +931,6 @@ vms:text/plain doc 8bit mac:application/x-macbase64 bin -MIMETYPES +__MIMETYPES__ 1; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/lib/MIME/Types.pod new/MIME-Types-1.18/lib/MIME/Types.pod --- old/MIME-Types-1.17/lib/MIME/Types.pod 2006-08-13 10:32:43.000000000 +0200 +++ new/MIME-Types-1.18/lib/MIME/Types.pod 2006-11-17 21:21:07.000000000 +0100 @@ -45,7 +45,7 @@ implementation, it does not matter whether you create this object often within your program, but in the future this may change. --Option --Defined in--Default + Option --Defined in--Default only_complete <false> . only_complete BOOLEAN @@ -197,7 +197,7 @@ =head1 COPYRIGHTS -Module version 1.17. +Module version 1.18. Written by Mark Overmeer (mimetypes(a)overmeer.net) See the ChangeLog for other contributors. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/MIME-Types-1.17/version new/MIME-Types-1.18/version --- old/MIME-Types-1.17/version 2006-08-13 10:06:19.000000000 +0200 +++ new/MIME-Types-1.18/version 2006-11-17 21:21:07.000000000 +0100 @@ -1 +1 @@ -$VERSION='1.17'; +$VERSION='1.18'; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-HTML-Tree
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-HTML-Tree checked in at Thu Dec 14 02:04:10 CET 2006. -------- --- perl-HTML-Tree/perl-HTML-Tree.changes 2006-08-10 11:03:20.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-HTML-Tree/perl-HTML-Tree.changes 2006-12-13 15:38:40.000000000 +0100 @@ -1,0 +2,15 @@ +Wed Dec 13 15:36:38 CET 2006 - kssingvo(a)suse.de + +- update to 3.23 + * fix for as_html was not proper, and broken behavior should never + be modified. + * HTML::Element::as_XML now only escapes five characters, instead + of escaping everything but alphanumerics and spaces. + * A string comparison was commented to use lc() on both sides, but + didn't. + * Added several new tests and enhanced others. + * Fixed description of HTML::Element::all_attr_names. + * Fixed example code in HTML::Element::push_content. + * Fixed description of HTML::Element::as_HTML. + +------------------------------------------------------------------- Old: ---- HTML-Tree-3.21.tar.bz2 New: ---- HTML-Tree-3.23.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTML-Tree.spec ++++++ --- /var/tmp/diff_new_pack.SSOYYd/_old 2006-12-14 02:03:24.000000000 +0100 +++ /var/tmp/diff_new_pack.SSOYYd/_new 2006-12-14 02:03:24.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-HTML-Tree (Version 3.21) +# spec file for package perl-HTML-Tree (Version 3.23) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -17,9 +17,9 @@ Requires: perl = %{perl_version}, perl-HTML-Parser, perl-HTML-Tagset Autoreqprov: on Summary: Modules for representing, creating, and extracting information from HTML syntax trees -Version: 3.21 +Version: 3.23 Release: 1 -Source: http://search.cpan.org/CPAN/authors/id/P/PE/PETDANCE/HTML-Tree-%{version}.t… +Source: http://search.cpan.org/CPAN/authors/id/P/PE/PETEK/HTML-Tree-%{version}.tar.… URL: http://search.cpan.org/CPAN/authors/id/P/PE/PETEK/ BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -62,6 +62,18 @@ %doc README Changes %changelog -n perl-HTML-Tree +* Wed Dec 13 2006 - kssingvo(a)suse.de +- update to 3.23 + * fix for as_html was not proper, and broken behavior should never + be modified. + * HTML::Element::as_XML now only escapes five characters, instead + of escaping everything but alphanumerics and spaces. + * A string comparison was commented to use lc() on both sides, but + didn't. + * Added several new tests and enhanced others. + * Fixed description of HTML::Element::all_attr_names. + * Fixed example code in HTML::Element::push_content. + * Fixed description of HTML::Element::as_HTML. * Thu Aug 10 2006 - kssingvo(a)suse.de - update to 3.21 * Updated HTML::Parser requirement to 3.46 to fix a bug in ++++++ HTML-Tree-3.21.tar.bz2 -> HTML-Tree-3.23.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/Changes new/HTML-Tree-3.23/Changes --- old/HTML-Tree-3.21/Changes 2006-08-07 02:10:50.000000000 +0200 +++ new/HTML-Tree-3.23/Changes 2006-11-12 18:11:05.000000000 +0100 @@ -1,5 +1,39 @@ Changelog for HTML-Tree +3.23 Sun Nov 12 11:09:31 CST 2006 + [THINGS THAT MAY BREAK YOUR CODE OR TESTS] + * Mark-Jason Dominus points out that the fix for as_html was not + proper, and broken behavior should never be codified. Fixed + as_html so an empty string doesn't encode entites, instead of + blaming the behavior on HTML::Entities. (RT 18571) + +3.22 Sat Nov 11 21:23:22 CST 2006 + [THINGS THAT MAY BREAK YOUR CODE OR TESTS] + * HTML::Element::as_XML now only escapes five characters, instead + of escaping everything but alphanumerics and spaces. This is + more in line with the XML spec, and will no longer escape wide + characters as two (or more) entities. Resolves RT 14260. Thanks + to Carl Franks and somewhere [at] confuzzled.lu for assistance. + + [FIXES] + * A string comparison was commented to use lc() on both sides, but + didn't. This caused HTML::Element::look_down to not properly find + elements in certain cases. Thanks to Andrew Suhachov. (RT 21114) + + [TESTS] + * Added several new tests and enhanced others. Thanks to Rocco + Caputo for t/attributes.t, and several others for providing + test cases in their RT bugs. + + [DOCUMENTATION] + * Fixed description of HTML::Element::all_attr_names. Thanks + to dsteinbrunner [at] pobox.com for catching it. + * Fixed example code in HTML::Element::push_content. Thanks + to dsteinbrunner [at] pobox.com for catching it. (RT 21293) + * Fixed description of HTML::Element::as_HTML. Thanks to + Mark-Jason Dominus for catching it. (RT 18569) + + 3.21 Sun Aug 6 19:10:00 CDT 2006 [FIXES] * Updated HTML::Parser requirement to 3.46 to fix a bug in diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/MANIFEST new/HTML-Tree-3.23/MANIFEST --- old/HTML-Tree-3.21/MANIFEST 2006-08-04 06:50:11.000000000 +0200 +++ new/HTML-Tree-3.23/MANIFEST 2006-11-12 18:18:35.000000000 +0100 @@ -1,10 +1,5 @@ Changes -MANIFEST -Makefile.PL -README -TODO htmltree - lib/HTML/AsSubs.pm lib/HTML/Element.pm lib/HTML/Element/traverse.pm @@ -14,19 +9,26 @@ lib/HTML/Tree/AboutTrees.pod lib/HTML/Tree/Scanning.pod lib/HTML/TreeBuilder.pm - +Makefile.PL +MANIFEST +README t/00system.t t/assubs.t +t/attributes.t +t/body.t t/building.t +t/children.t t/clonei.t t/construct_tree.t -t/construct_tree.t t/doctype.t -t/oldparse.html +t/escape.t t/oldparse.html t/oldparse.t -t/parsefile.t t/parse.t +t/parsefile.t t/pod.t t/split.t t/tag-rendering.t +t/unicode.t +TODO +META.yml Module meta-data (added by MakeMaker) diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/META.yml new/HTML-Tree-3.23/META.yml --- old/HTML-Tree-3.21/META.yml 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Tree-3.23/META.yml 2006-11-12 18:18:35.000000000 +0100 @@ -0,0 +1,12 @@ +# http://module-build.sourceforge.net/META-spec.html +#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# +name: HTML-Tree +version: 3.23 +version_from: lib/HTML/Tree.pm +installdirs: site +requires: + HTML::Parser: 3.46 + HTML::Tagset: 3.02 + +distribution_type: module +generated_by: ExtUtils::MakeMaker version 6.30 diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/htmltree new/HTML-Tree-3.23/htmltree --- old/HTML-Tree-3.21/htmltree 2006-08-04 06:50:11.000000000 +0200 +++ new/HTML-Tree-3.23/htmltree 2006-08-08 00:19:07.000000000 +0200 @@ -1,5 +1,5 @@ #!/usr/local/bin/perl -# Time-stamp: "2000-10-02 14:48:15 MDT" sburke(a)cpan.org +# Time-stamp: "2000-10-02 14:48:15 MDT" # # Parse the given HTML file(s) and dump the parse tree # Usage: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/lib/HTML/Element.pm new/HTML-Tree-3.23/lib/HTML/Element.pm --- old/HTML-Tree-3.21/lib/HTML/Element.pm 2006-08-07 01:47:54.000000000 +0200 +++ new/HTML-Tree-3.23/lib/HTML/Element.pm 2006-11-12 18:13:33.000000000 +0100 @@ -6,12 +6,12 @@ =head1 VERSION -Version 3.21 +Version 3.23 =cut use vars qw( $VERSION ); -$VERSION = '3.21'; +$VERSION = '3.23'; =head1 SYNOPSIS @@ -586,7 +586,7 @@ Like all_attr, but only returns the names of the attributes. -Example output of C<< $h->all_attr() >> : +Example output of C<< $h->all_attr_names() >> : C<'_parent', '_tag', 'lang', '_content', >. =cut @@ -715,8 +715,7 @@ $body->push_content( ['br'], ['ul', - map ['li', $_] - qw(Peaches Apples Pears Mangos) + map ['li', $_], qw(Peaches Apples Pears Mangos) ] ); @@ -1456,7 +1455,7 @@ the entities to encode. For compatibility with previous versions, specify C<'E<lt>E<gt>&'> here. If omitted or undef, I<all> unsafe characters are encoded as HTML entities. See L<HTML::Entities> for -details. +details. If passed an empty string, no entities are encoded. If $indent_char is specified and defined, the HTML to be output is intented, using the string you specify (which you probably should @@ -1480,8 +1479,6 @@ #my $indent_on = defined($indent) && length($indent); my @html = (); - undef($entities) unless defined($entities) and length($entities); - $omissible_map ||= \%HTML::Element::optionalEndTag; my $empty_element_map = $self->_empty_element_map; @@ -1550,11 +1547,15 @@ $last_tag_tightenable = 0; # I guess this is right HTML::Entities::encode_entities($node, $entities) # That does magic things if $entities is undef. - unless $HTML::Tagset::isCDATA_Parent{ $_[3]{'_tag'} }; - # To keep from amp-escaping children of script et al. - # That doesn't deal with descendants; but then, CDATA - # parents shouldn't /have/ descendants other than a - # text children (or comments?) + unless ( + (defined($entities) && !length($entities)) + # If there's no entity to encode, don't call it + || $HTML::Tagset::isCDATA_Parent{ $_[3]{'_tag'} } + # To keep from amp-escaping children of script et al. + # That doesn't deal with descendants; but then, CDATA + # parents shouldn't /have/ descendants other than a + # text children (or comments?) + ); if($nonindentable_ancestors) { push @html, $node; # say no go } else { @@ -1597,11 +1598,15 @@ # simple text content HTML::Entities::encode_entities($node, $entities) # That does magic things if $entities is undef. - unless $HTML::Tagset::isCDATA_Parent{ $_[3]{'_tag'} }; - # To keep from amp-escaping children of script et al. - # That doesn't deal with descendants; but then, CDATA - # parents shouldn't /have/ descendants other than a - # text children (or comments?) + unless ( + (defined($entities) && !length($entities)) + # If there's no entity to encode, don't call it + || $HTML::Tagset::isCDATA_Parent{ $_[3]{'_tag'} } + # To keep from amp-escaping children of script et al. + # That doesn't deal with descendants; but then, CDATA + # parents shouldn't /have/ descendants other than a + # text children (or comments?) + ); push(@html, $node); } 1; # keep traversing @@ -1720,9 +1725,19 @@ sub _xml_escape { # DESTRUCTIVE (a.k.a. "in-place") + # Five required escapes: http://www.w3.org/TR/2006/REC-xml11-20060816/#syntax + # We allow & if it's part of a valid escape already: http://www.w3.org/TR/2006/REC-xml11-20060816/#sec-references foreach my $x (@_) { - $x =~ s<([^\x20\x21\x23\x27-\x3b\x3d\x3F-\x5B\x5D-\x7E])> - <'&#'.(ord($1)).';'>seg; + $x =~ s/( # Escape... + < | # Less than, or + > | # Greater than, or + ' | # Single quote, or + " | # Double quote, or + &(?! # An ampersand that isn't followed by... + (\#\d+; | # A hash mark, digits and semicolon, or + \#x[\da-f]+; | # A hash mark, "x", hex digits and semicolon, or + [A-Za-z0-9]+; )) # alphanums (not underscore, hence not \w) and a semicolon + )/'&#'.ord($1).";"/sgex; # And replace them with their XML digit counterpart } return; } @@ -1827,7 +1842,8 @@ entities. See L<HTML::Entities> for details. If you specify some value for C<$entities>, remember to include the double-quote character in it. (Previous versions of this module would basically behave as if -C<'&"E<gt>'> were specified for C<$entities>.) +C<'&"E<gt>'> were specified for C<$entities>.) If C<$entities> is +an empty string, no entity is escaped. =cut @@ -1874,7 +1890,7 @@ $val = $val->{text}; } else { - HTML::Entities::encode_entities($val, $entities); + HTML::Entities::encode_entities($val, $entities) unless (defined($entities) && !length($entities)); } $val = qq{"$val"}; @@ -2753,7 +2769,7 @@ ? $val !~ $c->[1] : ( ref $val ne $c->[2] # have unequal ref values => fail - or lc($val) ne $c->[1] + or lc($val) ne lc($c->[1]) # have unequal lc string values => fail )) ) @@ -3825,6 +3841,8 @@ Original authors: Gisle Aas, Sean Burke and Andy Lester. +Thanks to Mark-Jason Dominus for a POD suggestion. + =cut 1; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/lib/HTML/Tree.pm new/HTML-Tree-3.23/lib/HTML/Tree.pm --- old/HTML-Tree-3.21/lib/HTML/Tree.pm 2006-08-07 02:05:20.000000000 +0200 +++ new/HTML-Tree-3.23/lib/HTML/Tree.pm 2006-11-12 18:13:41.000000000 +0100 @@ -6,12 +6,15 @@ =head1 VERSION -Version 3.21 +3.23 =cut +# HTML::Tree is basically just a happy alias to HTML::TreeBuilder. +use HTML::TreeBuilder (); + use vars qw( $VERSION ); -$VERSION = '3.21'; +$VERSION = 3.23; =head1 SYNOPSIS @@ -30,9 +33,6 @@ =cut -# HTML::Tree is basically just a happy alias to HTML::TreeBuilder. -use HTML::TreeBuilder (); - sub new { shift; unshift @_, 'HTML::TreeBuilder'; goto &HTML::TreeBuilder::new; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/lib/HTML/TreeBuilder.pm new/HTML-Tree-3.23/lib/HTML/TreeBuilder.pm --- old/HTML-Tree-3.21/lib/HTML/TreeBuilder.pm 2006-08-07 01:52:44.000000000 +0200 +++ new/HTML-Tree-3.23/lib/HTML/TreeBuilder.pm 2006-11-12 18:13:46.000000000 +0100 @@ -4,7 +4,7 @@ use integer; # vroom vroom! use Carp (); use vars qw(@ISA $VERSION $DEBUG); -$VERSION = '3.21'; +$VERSION = '3.23'; #--------------------------------------------------------------------------- # Make a 'DEBUG' constant... diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/t/attributes.t new/HTML-Tree-3.23/t/attributes.t --- old/HTML-Tree-3.21/t/attributes.t 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Tree-3.23/t/attributes.t 2006-11-12 01:02:13.000000000 +0100 @@ -0,0 +1,28 @@ +#!/usr/bin/perl + +# HTML::TreeBuilder invokes HTML::Entities::decode on the contents of +# HREF attributes. Some CGI-based sites use lang=en or such for +# internationalization. When this parameter is after an ampersand, +# the resulting &lang is decoded, breaking the link. "sub" is another +# popular one. + +# Test provided by Rocco Caputo + +use warnings; +use strict; + +use Test::More tests => 1; +use HTML::TreeBuilder; + +my $tb = HTML::TreeBuilder->new(); +$tb->parse( + "<a href='http://wherever/moo.cgi?xyz=123&lang=en'>Test</a>" +); + +my @links = $tb->look_down( sub { $_[0]->tag eq "a" } ); +my $href = $links[0]->attr("href"); + +ok($href =~ /lang/, "href should contain 'lang' (is: $href)"); + +exit; + diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/t/body.t new/HTML-Tree-3.23/t/body.t --- old/HTML-Tree-3.21/t/body.t 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Tree-3.23/t/body.t 2006-11-12 18:08:03.000000000 +0100 @@ -0,0 +1,82 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +use Test::More tests => 11; + +BEGIN { + use_ok('HTML::TreeBuilder'); +} + +EMPTY: { + my $root = HTML::TreeBuilder->new(); + $root->implicit_body_p_tag(1); + $root->xml_mode(1); + $root->parse(''); + $root->eof(); + + is($root->as_HTML(),"<html><head></head><body></body></html>\n"); +} + +BR_ONLY: { + my $root = HTML::TreeBuilder->new(); + $root->implicit_body_p_tag(1); + $root->xml_mode(1); + $root->parse(' '); + $root->eof(); + + is($root->as_HTML(),"<html><head></head><body> </body></html>\n"); +} + +TEXT_ONLY: { + my $root = HTML::TreeBuilder->new(); + $root->implicit_body_p_tag(1); + $root->xml_mode(1); + $root->parse('text'); + $root->eof(); + + is($root->as_HTML(),"<html><head></head><body>text</body></html>\n"); +} + +EMPTY_TABLE: { + my $root = HTML::TreeBuilder->new(); + $root->implicit_body_p_tag(1); + $root->xml_mode(1); + $root->parse('<table></table>'); + $root->eof(); + + is($root->as_HTML(),"<html><head></head><body><table></table></body></html>\n"); +} + +ESCAPES: { + my $root = HTML::TreeBuilder->new(); + my $escape = 'This ſoftware has ſome bugs'; + my $html = $root->parse($escape)->eof->elementify(); + TODO: { + local $TODO = 'HTML::Parser::parse mucks with our escapes'; + is($html->as_HTML(),"<html><head></head><body>$escape</body></html>\n"); + } +} + +OTHER_LANGUAGES: { + my $root = HTML::TreeBuilder->new(); + my $escape = 'Gebühr vor Ort von € 30,- pro Woche'; # RT 14212 + my $html = $root->parse($escape)->eof; + is($html->as_HTML(),"<html><head></head><body>Gebühr vor Ort von € 30,- pro Woche</body></html>\n"); +} + +RT_18570: { + my $root = HTML::TreeBuilder->new(); + my $escape = 'This &sim; is a twiddle'; + my $html = $root->parse($escape)->eof->elementify(); + is($html->as_HTML(),"<html><head></head><body>$escape</body></html>\n"); +} + +RT_18571: { + my $root = HTML::TreeBuilder->new(); + my $html = $root->parse('$self->escape')->eof->elementify(); + is($html->as_HTML(),"<html><head></head><body>\$self->escape</body></html>\n"); + is($html->as_HTML(''),"<html><head></head><body>\$self->escape</body></html>\n"); + is($html->as_HTML("\0"),"<html><head></head><body>\$self->escape</body></html>\n"); # 3.22 compatability +} diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/t/children.t new/HTML-Tree-3.23/t/children.t --- old/HTML-Tree-3.21/t/children.t 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Tree-3.23/t/children.t 2006-11-12 03:26:06.000000000 +0100 @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +# RT 21114 test case. Thanks Andrew Suhachov for finding it. + +use warnings; +use strict; + +use Test::More tests=>4; + +BEGIN { + use_ok('HTML::TreeBuilder'); +} + +my $root = HTML::TreeBuilder->new(); +my $escape = '<table><tr><td>One</td><td>Two</td></tr><tr><td>Three</td><td>Four</td></tr></table>'; +my $html = $root->parse($escape)->eof; + +my $child = $root->look_down( _tag=>'tr', sub { my $tr = shift; $tr->look_down( _tag=>'td', _parent=>$tr) ? 1 : 0; } ); +isa_ok( $child, 'HTML::Element', "Child found"); + +my @children = $root->look_down( _tag=>'tr', sub { my $tr = shift; $tr->look_down( _tag=>'td', _parent=>$tr) ? 1 : 0; } ); +cmp_ok( scalar(@children), '==', '2', "2 total children found"); + +my $none = $root->look_down( _tag=>'tr', sub { 0 } ); +ok(!defined($none),'No children found'); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/t/escape.t new/HTML-Tree-3.23/t/escape.t --- old/HTML-Tree-3.21/t/escape.t 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Tree-3.23/t/escape.t 2006-11-11 21:39:42.000000000 +0100 @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +# Tests that the following translations take place, and none other: +# +# & => & (aka &) +# < => < (aka <) +# > => > (aka >) +# ' => ' (aka ') +# " => " (aka ") +# +# Further tests that already-escaped things are not further escaped. +# +# Escapes are defined in the XML spec: +# http://www.w3.org/TR/2006/REC-xml11-20060816/#dt-escape + + +BEGIN { + %translations = ( + 'x > 3' => 'x > 3', + 'x < 3' => 'x < 3', + '< 3 >' => '< 3 >', + "he's" => "he's", + "he’s" => "he’s", # MS "smart" quotes don't get escaped (single) + '"his"' => '"his"', + '‘his’' => '‘his’', # MS "smart" quotes don't get escaped (single) + '“his”' => '“his”', # MS "smart" quotes don't get escaped (double) + '1&2' => '1&2', + '1&2' => '1&2', + '1&2' => '1&2', + '1&amp 2' => '1&amp 2', + '1&#38 2' => '1&#38 2', + 'abc' => 'abc', + 'número' => 'número', + '&dArr;' => '&dArr;', + '&OElig;' => '&OElig;', + '²' => '²', + '&no_go;' => '&no_go;', + + 'This ſoftware has ſome bugs' => 'This ſoftware has ſome bugs', # RT 18568 + ); + + $tests = keys(%translations) + 1; +} + +use Test::More tests => $tests; + +BEGIN { + + use_ok('HTML::Element'); +} + +foreach my $orig (keys %translations) { + $new = $orig; + HTML::Element::_xml_escape($new); + is($new,$translations{$orig},"Properly escaped: $orig"); +} + diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/t/pod.t new/HTML-Tree-3.23/t/pod.t --- old/HTML-Tree-3.21/t/pod.t 2006-08-04 06:50:10.000000000 +0200 +++ new/HTML-Tree-3.23/t/pod.t 2006-08-07 02:29:40.000000000 +0200 @@ -1,6 +1,6 @@ -#!perl -Tw +#!perl -T + use Test::More; -use strict ; -eval "use Test::Pod 1.00"; -plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; +eval "use Test::Pod 1.14"; +plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; all_pod_files_ok(); diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/HTML-Tree-3.21/t/unicode.t new/HTML-Tree-3.23/t/unicode.t --- old/HTML-Tree-3.21/t/unicode.t 1970-01-01 01:00:00.000000000 +0100 +++ new/HTML-Tree-3.23/t/unicode.t 2006-11-11 18:33:08.000000000 +0100 @@ -0,0 +1,115 @@ +#!perl -w +# -*-Perl-*- +# Time-stamp: "2003-09-15 01:45:14 ADT" + +use strict; +use Test::More; +my $DEBUG = 2; + +BEGIN { + # Make sure we've got Unicode support: + eval "use v5.8.0; utf8::is_utf8('x');"; + if ($@) { + plan skip_all => "Perl 5.8.0 or newer required for Unicode tests"; + exit; + } + + plan tests => 11; + binmode STDOUT, ":utf8"; +} # end BEGIN + +use Encode; +use HTML::TreeBuilder; + +print "#Using Encode version v", $Encode::VERSION || "?", "\n"; +print "#Using HTML::TreeBuilder version v$HTML::TreeBuilder::VERSION\n"; +print "#Using HTML::Element version v$HTML::Element::VERSION\n"; +print "#Using HTML::Parser version v", $HTML::Parser::VERSION || "?", "\n"; +print "#Using HTML::Entities version v", $HTML::Entities::VERSION || "?", "\n"; +print "#Using HTML::Tagset version v", $HTML::Tagset::VERSION || "?", "\n"; +print "# Running under perl version $] for $^O", + (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n"; +print "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n" + if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber(); +print "# MacPerl verison $MacPerl::Version\n" + if defined $MacPerl::Version; +printf + "# Current time local: %s\n# Current time GMT: %s\n", + scalar(localtime($^T)), scalar(gmtime($^T)); + +ok 1; + +ok same(' ', decode('latin1', "\xA0")); + +ok !same('', decode('latin1', "\xA0"), 1); +ok !same(' ', decode('latin1', "\xA0"), 1); + +ok same('   ', decode('latin1', "\xA0\xA0\xA0")); +ok same("\xA0\xA0\xA0", decode('latin1', "\xA0\xA0\xA0")); + +ok !same('', decode('latin1', "\xA0\xA0\xA0"), 1); +ok !same(' ', decode('latin1', "\xA0\xA0\xA0"), 1); + +ok same('  —  ', + "\xA0\xA0\x{2014}\xA0\xA0"); + +ok same('  XXmdashXX  ', + "\xA0\xA0\x{2014}\xA0\xA0", + 0, sub { $_[0] =~ s/XXmdashXX/\x{2014}/ }); + +ok same(' bold  ', + decode('latin1', "\xA0bold\xA0\xA0")); + +sub same { + my($code1, $code2, $flip, $fixup) = @_; + my $t1 = HTML::TreeBuilder->new; + my $t2 = HTML::TreeBuilder->new; + + if(ref $code1) { $t1->implicit_tags(0); $code1 = $$code1 } + if(ref $code2) { $t2->implicit_tags(0); $code2 = $$code2 } + + $t1->parse($code1); $t1->eof; + $t2->parse($code2); $t2->eof; + + my $out1 = $t1->as_XML; + my $out2 = $t2->as_XML; + + $fixup->($out1, $out2) if $fixup; + + my $rv = ($out1 eq $out2); + + #print $rv? "RV TRUE\n" : "RV FALSE\n"; + #print $flip? "FLIP TRUE\n" : "FLIP FALSE\n"; + + if($flip ? (!$rv) : $rv) { + if($DEBUG > 2) { + print + "In1 $code1\n", + "In2 $code2\n", + "Out1 $out1\n", + "Out2 $out2\n", + "\n\n"; + } + } else { + local $_; + foreach my $line ( + '', + "The following failure is at " . join(' : ' ,caller), + "Explanation of failure: " . ($flip ? 'same' : 'different') + . " parse trees!", + sprintf("Input code 1 (utf8=%d):", utf8::is_utf8($code1)), $code1, + sprintf("Input code 2 (utf8=%d):", utf8::is_utf8($code2)), $code2, + "Output tree (as XML) 1:", $out1, + "Output tree (as XML) 2:", $out2, + ) { + $_ = $line; + s/\n/\n# /g; + print "# $_\n"; + } + } + + $t1->delete; + $t2->delete; + + return $rv; +} # end same ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-IO-Socket-SSL
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-IO-Socket-SSL checked in at Thu Dec 14 02:04:01 CET 2006. -------- --- perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2006-09-15 19:50:21.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes 2006-12-13 13:35:24.000000000 +0100 @@ -1,0 +2,11 @@ +Wed Dec 13 12:18:37 CET 2006 - anicka(a)suse.cz + +- update to 1.02 + * added some info to BUGS and to BUGS section of pod + * added TELL and BINMODE to IO::Socket::SSL::SSL_HANDLE, even + if they do nothing useful. + * all tests allocate now the ports dynamically, so there should + be no longer a conflict with open ports on the system where + the tests run + +------------------------------------------------------------------- Old: ---- IO-Socket-SSL-1.01-store_set_flags.diff IO-Socket-SSL-1.01.tar.bz2 New: ---- IO-Socket-SSL-1.02-store_set_flags.diff IO-Socket-SSL-1.02.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IO-Socket-SSL.spec ++++++ --- /var/tmp/diff_new_pack.sPexFQ/_old 2006-12-14 02:03:28.000000000 +0100 +++ /var/tmp/diff_new_pack.sPexFQ/_new 2006-12-14 02:03:28.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-IO-Socket-SSL (Version 1.01) +# spec file for package perl-IO-Socket-SSL (Version 1.02) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -12,7 +12,7 @@ Name: perl-IO-Socket-SSL BuildRequires: perl-Net_SSLeay perl-libwww-perl -Version: 1.01 +Version: 1.02 Release: 1 Provides: p_iossl Obsoletes: p_iossl @@ -64,6 +64,14 @@ /var/adm/perl-modules/%{name} %changelog -n perl-IO-Socket-SSL +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 1.02 + * added some info to BUGS and to BUGS section of pod + * added TELL and BINMODE to IO::Socket::SSL::SSL_HANDLE, even + if they do nothing useful. + * all tests allocate now the ports dynamically, so there should + be no longer a conflict with open ports on the system where + the tests run * Thu Sep 14 2006 - anicka(a)suse.cz - update to 1.01 * add support for Diffie Hellman Key Exchange. ++++++ IO-Socket-SSL-1.01-store_set_flags.diff -> IO-Socket-SSL-1.02-store_set_flags.diff ++++++ ++++++ IO-Socket-SSL-1.01.tar.bz2 -> IO-Socket-SSL-1.02.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/BUGS new/IO-Socket-SSL-1.02/BUGS --- old/IO-Socket-SSL-1.01/BUGS 2006-08-15 22:12:46.000000000 +0200 +++ new/IO-Socket-SSL-1.02/BUGS 2006-12-01 10:39:42.000000000 +0100 @@ -2,6 +2,13 @@ Following are some common errors to watch out for: +It doesn't work together with Storable::fd_retrieve|fd_store, see +https://rt.cpan.org/Ticket/Display.html?id=23419. +You need to use freeze/nfreeze/thaw and syswrite/sysread the data +yourself. See the bug for examples how to do it. + +--------------------- + If you get an SSL connection but not certificate you might check the cipher with Net::SSLeay::get_cipher( $socket->_get_ssl_object ). If it is something like 'ADH-AES256-SHA' you should try to disable @@ -11,6 +18,14 @@ --------------------- +There is a problem with openssl versions 0.9.8a and 0.9.8b, see +http://marc.theaimsgroup.com/?l=openssl-dev&m=113550694922967&w=2 +The bug was fixed in newer releases, but if you are forced to use +these buggy versions you should apply a patch to Net::SSLeay 1.30, +see http://rt.cpan.org/Public/Bug/Display.html?id=22910. + +--------------------- + IO::Socket::SSL does not currently support using both IPv4 and IPv6 in the same program. For a quick workaround, copy the module 'SSL.pm' to another named 'SSL6.pm' and adjust the package declaration diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/Changes new/IO-Socket-SSL-1.02/Changes --- old/IO-Socket-SSL-1.01/Changes 2006-09-13 13:07:24.000000000 +0200 +++ new/IO-Socket-SSL-1.02/Changes 2006-12-01 10:54:59.000000000 +0100 @@ -1,3 +1,10 @@ +v1.02 + - added some info to BUGS and to BUGS section of pod + - added TELL and BINMODE to IO::Socket::SSL::SSL_HANDLE, even + if they do nothing useful. + - all tests allocate now the ports dynamically, so there should + be no longer a conflict with open ports on the system where + the tests run v1.01 - work around Bug in Net::HTTPS where it defines sub blocking as {}, e.g. force scalar context when calling sub blocking diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/SSL.pm new/IO-Socket-SSL-1.02/SSL.pm --- old/IO-Socket-SSL-1.01/SSL.pm 2006-09-13 13:04:19.000000000 +0200 +++ new/IO-Socket-SSL-1.02/SSL.pm 2006-12-01 10:51:44.000000000 +0100 @@ -40,7 +40,7 @@ BEGIN { # Declare @ISA, $VERSION, $GLOBAL_CONTEXT_ARGS @ISA = qw(IO::Socket::INET); - $VERSION = '1.01'; + $VERSION = '1.02'; $GLOBAL_CONTEXT_ARGS = {}; #Make $DEBUG another name for $Net::SSLeay::trace @@ -748,6 +748,7 @@ package IO::Socket::SSL::SSL_HANDLE; use strict; use vars qw($HAVE_WEAKREF); +use Errno 'EBADF'; BEGIN { local ($@, $SIG{__DIE__}); @@ -774,6 +775,9 @@ sub FILENO { ${shift()}->fileno (@_) } +sub TELL { $! = EBADF; return -1 } +sub BINMODE { return 0 } # not perfect, but better than not implementing the method + sub CLOSE { #<---- Do not change this function! my $ssl = ${$_[0]}; local @_; @@ -1412,6 +1416,9 @@ uses a global object to access some of the API of openssl and is therefore not threadsafe. +IO::Socket::SSL does not work together with Storable::fd_retrieve/fd_store. +See BUGS file for more information and how to work around the problem. + =head1 LIMITATIONS IO::Socket::SSL uses Net::SSLeay as the shiny interface to OpenSSL, which is diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/02settings.t new/IO-Socket-SSL-1.02/t/02settings.t --- old/IO-Socket-SSL-1.01/t/02settings.t 2006-07-18 15:23:19.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/02settings.t 2006-12-01 10:15:24.000000000 +0100 @@ -4,15 +4,16 @@ use IO::Socket::SSL; eval {require "t/ssl_settings.req";} || eval {require "ssl_settings.req";}; -use vars qw($SSL_SERVER_PORT $SSL_SERVER_ADDR); +use vars qw($SSL_SERVER_ADDR); print "1..1\n"; $test=1; -my $server = new IO::Socket::INET(LocalPort => $SSL_SERVER_PORT, - LocalAddr => $SSL_SERVER_ADDR, - Listen => 1, - ReuseAddr => 1); +my $server = IO::Socket::INET->new( + # pick any port on LocalAddr + LocalAddr => $SSL_SERVER_ADDR, + Listen => 1 +); if (!$server) { print "Bail out! "; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/cert_no_file.t new/IO-Socket-SSL-1.02/t/cert_no_file.t --- old/IO-Socket-SSL-1.01/t/cert_no_file.t 2006-07-24 16:14:59.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/cert_no_file.t 2006-12-01 10:16:36.000000000 +0100 @@ -16,7 +16,7 @@ use IO::Socket::SSL; use strict; -use vars qw( $SSL_SERVER_PORT $SSL_SERVER_ADDR ); +use vars qw( $SSL_SERVER_ADDR ); do "t/ssl_settings.req" || do "ssl_settings.req"; if ( grep { $^O =~m{$_} } qw( MacOS VOS vmesa riscos amigaos ) ) { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/compatibility.t new/IO-Socket-SSL-1.02/t/compatibility.t --- old/IO-Socket-SSL-1.01/t/compatibility.t 2006-07-18 15:23:19.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/compatibility.t 2006-12-01 10:18:48.000000000 +0100 @@ -3,6 +3,7 @@ # `make test'. After `make install' it should work as `perl t/compatibility.t' use IO::Socket::SSL; +use Socket; eval {require "t/ssl_settings.req";} || eval {require "ssl_settings.req";}; @@ -21,10 +22,11 @@ IO::Socket::SSL::context_init(SSL_verify_mode => 0x01, SSL_version => 'TLSv1' ); -my $server = new IO::Socket::INET(LocalPort => $SSL_SERVER_PORT, - LocalAddr => $SSL_SERVER_ADDR, - Listen => 1, - Proto => 'tcp', ReuseAddr => 1, Timeout => 15); +my $server = IO::Socket::INET->new( + LocalAddr => $SSL_SERVER_ADDR, + Listen => 1, + Proto => 'tcp', ReuseAddr => 1, Timeout => 15 +); if (!$server) { print "Bail out! "; @@ -34,6 +36,8 @@ exit; } +my ($SSL_SERVER_PORT) = unpack_sockaddr_in( $server->sockname ); + print "ok\n"; unless (fork) { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/core.t new/IO-Socket-SSL-1.02/t/core.t --- old/IO-Socket-SSL-1.01/t/core.t 2006-07-24 16:15:07.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/core.t 2006-12-01 10:21:03.000000000 +0100 @@ -47,19 +47,20 @@ (SSL_key_file => "certs/client-key.pem"); -my $server = new IO::Socket::SSL(LocalPort => $SSL_SERVER_PORT, - LocalAddr => $SSL_SERVER_ADDR, - Listen => 2, - Timeout => 30, - ReuseAddr => 1, - SSL_verify_mode => 0x00, - SSL_ca_file => "certs/test-ca.pem", - SSL_use_cert => 1, - SSL_cert_file => "certs/client-cert.pem", - SSL_version => 'TLSv1', - SSL_cipher_list => 'HIGH', - SSL_error_trap => \&error_trap, - %extra_options); +my $server = IO::Socket::SSL->new( + LocalAddr => $SSL_SERVER_ADDR, + Listen => 2, + Timeout => 30, + ReuseAddr => 1, + SSL_verify_mode => 0x00, + SSL_ca_file => "certs/test-ca.pem", + SSL_use_cert => 1, + SSL_cert_file => "certs/client-cert.pem", + SSL_version => 'TLSv1', + SSL_cipher_list => 'HIGH', + SSL_error_trap => \&error_trap, + %extra_options +); if (!$server) { print "not ok\n"; @@ -70,6 +71,9 @@ print "not " if (!defined fileno($server)); &ok("Server Fileno Check"); +my ($SSL_SERVER_PORT) = unpack_sockaddr_in( $server->sockname ); + + unless (fork) { close $server; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/nonblock.t new/IO-Socket-SSL-1.02/t/nonblock.t --- old/IO-Socket-SSL-1.01/t/nonblock.t 2006-07-24 16:15:40.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/nonblock.t 2006-12-01 10:22:06.000000000 +0100 @@ -10,7 +10,7 @@ use Errno qw( EAGAIN EINPROGRESS EPIPE ECONNRESET ); use strict; -use vars qw( $SSL_SERVER_PORT $SSL_SERVER_ADDR ); +use vars qw( $SSL_SERVER_ADDR ); do "t/ssl_settings.req" || do "ssl_settings.req"; if ( ! eval "use 5.006; use IO::Select; return 1" ) { @@ -44,7 +44,6 @@ my $ID = 'server'; my $server = IO::Socket::INET->new( Blocking => 0, - LocalPort => $SSL_SERVER_PORT, LocalAddr => $SSL_SERVER_ADDR, Listen => 2, ReuseAddr => 1, @@ -53,7 +52,7 @@ print "not ok: $!\n", exit if !$server; # Address in use? ok("Server Initialization"); - +my ($SSL_SERVER_PORT) = unpack_sockaddr_in( $server->sockname ); defined( my $pid = fork() ) || die $!; if ( $pid == 0 ) { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/sessions.t new/IO-Socket-SSL-1.02/t/sessions.t --- old/IO-Socket-SSL-1.01/t/sessions.t 2006-07-18 15:23:19.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/sessions.t 2006-12-01 10:35:44.000000000 +0100 @@ -3,6 +3,7 @@ # `make test'. After `make install' it should work as `perl t/core.t' use Net::SSLeay; +use Socket; use IO::Socket::SSL; eval {require "t/ssl_settings.req";} || eval {require "ssl_settings.req";}; @@ -42,9 +43,9 @@ SSL_cipher_list => 'HIGH'); -my @servers = (new IO::Socket::SSL(LocalPort => $SSL_SERVER_PORT, %server_options), - new IO::Socket::SSL(LocalPort => $SSL_SERVER_PORT2, %server_options), - new IO::Socket::SSL(LocalPort => $SSL_SERVER_PORT3, %server_options)); +my @servers = (IO::Socket::SSL->new( %server_options), + IO::Socket::SSL->new( %server_options), + IO::Socket::SSL->new( %server_options)); if (!$servers[0] or !$servers[1] or !$servers[2]) { print "not ok # Server init\n"; @@ -52,6 +53,11 @@ } &ok("Server initialization"); +my ($SSL_SERVER_PORT) = unpack_sockaddr_in( $servers[0]->sockname ); +my ($SSL_SERVER_PORT2) = unpack_sockaddr_in( $servers[1]->sockname ); +my ($SSL_SERVER_PORT3) = unpack_sockaddr_in( $servers[2]->sockname ); + + unless (fork) { close $_ foreach @servers; my $ctx = new IO::Socket::SSL::SSL_Context diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/ssl_settings.req new/IO-Socket-SSL-1.02/t/ssl_settings.req --- old/IO-Socket-SSL-1.01/t/ssl_settings.req 2006-07-18 15:23:19.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/ssl_settings.req 2006-12-01 10:15:50.000000000 +0100 @@ -1,6 +1,3 @@ -#Change the following to a port and address that you can create a listening socket on: -$SSL_SERVER_PORT = 2000; -$SSL_SERVER_PORT2 = 2001; -$SSL_SERVER_PORT3 = 2002; +#Change the following to an address that you can create a listening socket on: $SSL_SERVER_ADDR = '127.0.0.1'; -'True Value'; \ No newline at end of file +'True Value'; diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/startssl.t new/IO-Socket-SSL-1.02/t/startssl.t --- old/IO-Socket-SSL-1.01/t/startssl.t 2006-07-24 16:15:55.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/startssl.t 2006-12-01 10:26:21.000000000 +0100 @@ -10,7 +10,7 @@ use Errno qw(EAGAIN EINPROGRESS ); use strict; -use vars qw( $SSL_SERVER_PORT $SSL_SERVER_ADDR ); +use vars qw( $SSL_SERVER_ADDR ); do "t/ssl_settings.req" || do "ssl_settings.req"; if ( ! eval "use 5.006; use IO::Select; return 1" ) { @@ -27,7 +27,6 @@ my $server = IO::Socket::INET->new( - LocalPort => $SSL_SERVER_PORT, LocalAddr => $SSL_SERVER_ADDR, Listen => 2, ReuseAddr => 1, @@ -39,6 +38,8 @@ print "not " if (!defined fileno($server)); ok("Server Fileno Check"); +my ($SSL_SERVER_PORT) = unpack_sockaddr_in( $server->sockname ); + defined( my $pid = fork() ) || die $!; if ( $pid == 0 ) { diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IO-Socket-SSL-1.01/t/sysread_write.t new/IO-Socket-SSL-1.02/t/sysread_write.t --- old/IO-Socket-SSL-1.01/t/sysread_write.t 2006-08-02 08:43:28.000000000 +0200 +++ new/IO-Socket-SSL-1.02/t/sysread_write.t 2006-12-01 10:26:57.000000000 +0100 @@ -11,7 +11,7 @@ use IO::Socket::SSL; use strict; -use vars qw( $SSL_SERVER_PORT $SSL_SERVER_ADDR ); +use vars qw( $SSL_SERVER_ADDR ); do "t/ssl_settings.req" || do "ssl_settings.req"; if ( grep { $^O =~m{$_} } qw( MacOS VOS vmesa riscos amigaos ) ) { @@ -30,7 +30,6 @@ # first create simple ssl-server my $ID = 'server'; my $server = IO::Socket::SSL->new( - LocalPort => $SSL_SERVER_PORT, LocalAddr => $SSL_SERVER_ADDR, Listen => 2, ReuseAddr => 1, @@ -44,6 +43,7 @@ print "not ok: $!\n", exit if !$server; # Address in use? ok("Server Initialization"); +my ($SSL_SERVER_PORT) = unpack_sockaddr_in( $server->sockname ); defined( my $pid = fork() ) || die $!; if ( $pid == 0 ) { ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-DBI
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-DBI checked in at Thu Dec 14 02:03:23 CET 2006. -------- --- perl-DBI/perl-DBI.changes 2006-09-13 19:39:44.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-DBI/perl-DBI.changes 2006-12-13 13:27:03.000000000 +0100 @@ -1,0 +2,15 @@ +Wed Dec 13 13:24:04 CET 2006 - anicka(a)suse.cz + +- update to 1.53 + * Fixed checks for weaken to work with early 5.8.x versions + * Fixed DBD::Proxy handling of some methods, including commit + and rollback. + * Fixed to be more robust against drivers not handling multiple + result sets properly. + * Test fixes. + * Added array context support to execute_array and + execute_for_fetch methods which returns executed tuples + and rows affected. + * Added Tie::Cache::LRU example to docs + +------------------------------------------------------------------- Old: ---- DBI-1.52.tar.bz2 perl-DBI-1.52-dbis.diff New: ---- DBI-1.53.tar.bz2 perl-DBI-1.53-dbis.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBI.spec ++++++ --- /var/tmp/diff_new_pack.l7yUIn/_old 2006-12-14 02:02:57.000000000 +0100 +++ /var/tmp/diff_new_pack.l7yUIn/_new 2006-12-14 02:02:57.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-DBI (Version 1.52) +# spec file for package perl-DBI (Version 1.53) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -12,7 +12,7 @@ Name: perl-DBI BuildRequires: perl-Curses -Version: 1.52 +Version: 1.53 Release: 1 Requires: perl = %{perl_version} Requires: perl-PlRPC @@ -20,7 +20,7 @@ Obsoletes: perl_dbi Autoreqprov: on Group: Development/Libraries/Perl -License: GPL +License: GNU General Public License (GPL) URL: http://cpan.org/modules/by-module/DBI/ Summary: The Perl Database Interface Source: DBI-%{version}.tar.bz2 @@ -55,7 +55,7 @@ %files %defattr(-,root,root) -%doc Changes README ToDo +%doc Changes README %doc %{_mandir}/man?/* %{perl_vendorarch}/Bundle %{perl_vendorarch}/DBD @@ -64,10 +64,23 @@ %{perl_vendorarch}/Roadmap.pod %{perl_vendorarch}/Win32 %{perl_vendorarch}/auto/DBI +%{perl_vendorarch}/TASKS.pod %{_bindir}/* /var/adm/perl-modules/%{name} %changelog -n perl-DBI +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 1.53 + * Fixed checks for weaken to work with early 5.8.x versions + * Fixed DBD::Proxy handling of some methods, including commit + and rollback. + * Fixed to be more robust against drivers not handling multiple + result sets properly. + * Test fixes. + * Added array context support to execute_array and + execute_for_fetch methods which returns executed tuples + and rows affected. + * Added Tie::Cache::LRU example to docs * Wed Sep 13 2006 - anicka(a)suse.cz - update to 1.52 * fixed several memory leaks ++++++ DBI-1.52.tar.bz2 -> DBI-1.53.tar.bz2 ++++++ ++++ 2168 lines of diff (skipped) ++++++ perl-DBI-1.52-dbis.diff -> perl-DBI-1.53-dbis.diff ++++++ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0

commit perl-Class-Accessor
by root＠suse.de 14 Dec '06

14 Dec '06

Hello community, here is the log from the commit of package perl-Class-Accessor checked in at Thu Dec 14 02:03:19 CET 2006. -------- --- perl-Class-Accessor/perl-Class-Accessor.changes 2006-07-24 15:09:47.000000000 +0200 +++ /mounts/work_src_done/STABLE/perl-Class-Accessor/perl-Class-Accessor.changes 2006-12-13 13:33:38.000000000 +0100 @@ -1,0 +2,6 @@ +Wed Dec 13 12:19:25 CET 2006 - anicka(a)suse.cz + +- update to 0.30 + * added version numbers back into each class + +------------------------------------------------------------------- Old: ---- Class-Accessor-0.27.tar.bz2 New: ---- Class-Accessor-0.30.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Class-Accessor.spec ++++++ --- /var/tmp/diff_new_pack.9mYO0Y/_old 2006-12-14 02:02:52.000000000 +0100 +++ /var/tmp/diff_new_pack.9mYO0Y/_new 2006-12-14 02:02:52.000000000 +0100 @@ -1,5 +1,5 @@ # -# spec file for package perl-Class-Accessor (Version 0.27) +# spec file for package perl-Class-Accessor (Version 0.30) # # Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine @@ -12,7 +12,7 @@ Name: perl-Class-Accessor BuildRequires: perl-Carp-Assert -Version: 0.27 +Version: 0.30 Release: 1 Requires: perl-Carp-Assert Requires: perl = %{perl_version} @@ -59,6 +59,9 @@ /var/adm/perl-modules/%{name} %changelog -n perl-Class-Accessor +* Wed Dec 13 2006 - anicka(a)suse.cz +- update to 0.30 + * added version numbers back into each class * Mon Jul 24 2006 - anicka(a)suse.cz - update to 0.27 * added Class::Accessor::Faster that uses an array internally ++++++ Class-Accessor-0.27.tar.bz2 -> Class-Accessor-0.30.tar.bz2 ++++++ diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Class-Accessor-0.27/Changes new/Class-Accessor-0.30/Changes --- old/Class-Accessor-0.27/Changes 2006-07-19 02:46:09.000000000 +0200 +++ new/Class-Accessor-0.30/Changes 2006-11-26 05:09:17.000000000 +0100 @@ -1,3 +1,6 @@ +0.30 Sun Nov 26 13:03:47 JST 2006 + - added version numbers back into each class to fix RT#21746 + 0.26 Wed Jul 19 01:20:23 BST 2006 - added Class::Accessor::Faster that uses an array internally. Thanks to Tina Mueller for prompting me to do this. diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Class-Accessor-0.27/META.yml new/Class-Accessor-0.30/META.yml --- old/Class-Accessor-0.27/META.yml 2006-07-19 02:46:13.000000000 +0200 +++ new/Class-Accessor-0.30/META.yml 2006-11-26 05:09:20.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: Class-Accessor -version: 0.27 +version: 0.30 version_from: lib/Class/Accessor.pm installdirs: site requires: diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Class-Accessor-0.27/lib/Class/Accessor/Fast.pm new/Class-Accessor-0.30/lib/Class/Accessor/Fast.pm --- old/Class-Accessor-0.27/lib/Class/Accessor/Fast.pm 2006-07-19 02:46:09.000000000 +0200 +++ new/Class-Accessor-0.30/lib/Class/Accessor/Fast.pm 2006-11-26 05:09:17.000000000 +0100 @@ -1,7 +1,7 @@ package Class::Accessor::Fast; use base 'Class::Accessor'; use strict; -$Class::Accessor::Fast::VERSION = $Class::Accessor::VERSION; +$Class::Accessor::Fast::VERSION = '0.30'; =head1 NAME diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Class-Accessor-0.27/lib/Class/Accessor/Faster.pm new/Class-Accessor-0.30/lib/Class/Accessor/Faster.pm --- old/Class-Accessor-0.27/lib/Class/Accessor/Faster.pm 2006-07-19 02:46:09.000000000 +0200 +++ new/Class-Accessor-0.30/lib/Class/Accessor/Faster.pm 2006-11-26 05:09:17.000000000 +0100 @@ -1,7 +1,7 @@ package Class::Accessor::Faster; use base 'Class::Accessor'; use strict; -$Class::Accessor::Faster::VERSION = $Class::Accessor::VERSION; +$Class::Accessor::Faster::VERSION = '0.30'; =head1 NAME diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Class-Accessor-0.27/lib/Class/Accessor.pm new/Class-Accessor-0.30/lib/Class/Accessor.pm --- old/Class-Accessor-0.27/lib/Class/Accessor.pm 2006-07-19 02:46:09.000000000 +0200 +++ new/Class-Accessor-0.30/lib/Class/Accessor.pm 2006-11-26 05:09:17.000000000 +0100 @@ -1,7 +1,7 @@ package Class::Accessor; require 5.00502; use strict; -$Class::Accessor::VERSION = '0.27'; +$Class::Accessor::VERSION = '0.30'; =head1 NAME ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... --------------------------------------------------------------------- To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org For additional commands, e-mail: opensuse-commit+help(a)opensuse.org

1 0