Hello community, here is the log from the commit of package perl-Digest-MD4 for openSUSE:Factory checked in at 2013-06-07 06:58:24 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Digest-MD4 (Old) and /work/SRC/openSUSE:Factory/.perl-Digest-MD4.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Digest-MD4" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Digest-MD4/perl-Digest-MD4.changes 2012-03-17 13:22:51.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Digest-MD4.new/perl-Digest-MD4.changes 2013-06-07 06:58:26.000000000 +0200 @@ -1,0 +2,9 @@ +Tue Jun 4 08:36:54 UTC 2013 - [email protected] + +- updated to 1.9 + Fixed example output in doc in MD4.pm. Reported by [email protected]. + Removed defunct code that caused incorrect error message when building on 64 bit platforms, patch by + Fixed a test error in files.t. Corrected the comment to do with the reason in + Updated author and distribution location details to airspayce.com + +------------------------------------------------------------------- Old: ---- Digest-MD4-1.5.tar.gz New: ---- Digest-MD4-1.9.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Digest-MD4.spec ++++++ --- /var/tmp/diff_new_pack.qUvHaj/_old 2013-06-07 06:58:27.000000000 +0200 +++ /var/tmp/diff_new_pack.qUvHaj/_new 2013-06-07 06:58:27.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Digest-MD4 # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,15 +16,14 @@ # - Name: perl-Digest-MD4 -Version: 1.5 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 1.9 +Release: 0 %define cpan_name Digest-MD4 Summary: Perl interface to the MD4 Algorithm -Url: http://search.cpan.org/dist/Digest-MD4/ +License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/Digest-MD4/ Source: http://www.cpan.org/authors/id/M/MI/MIKEM/DigestMD4/%{cpan_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl ++++++ Digest-MD4-1.5.tar.gz -> Digest-MD4-1.9.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/Changes new/Digest-MD4-1.9/Changes --- old/Digest-MD4-1.5/Changes 2004-11-17 12:09:03.000000000 +0100 +++ new/Digest-MD4-1.9/Changes 2013-03-22 01:14:36.000000000 +0100 @@ -28,5 +28,17 @@ ActivePerl version adds hexhash() for compatibility Contributed by Gisle Aas +*** 200?/??/?? Version 1.6 +Fixed example output in doc in MD4.pm. Reported by [email protected]. +*** 2013/03/14 Version 1.7 +Removed defunct code that caused incorrect error message when building on 64 bit platforms, patch by +zefram + +*** 2013/03/14 Version 1.8 +Fixed a test error in files.t. Corrected the comment to do with the reason in +verison 1.7 + +*** 2013-03-22 Version 1.9 +Updated author and distribution location details to airspayce.com diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/MANIFEST new/Digest-MD4-1.9/MANIFEST --- old/Digest-MD4-1.5/MANIFEST 2004-09-13 12:10:41.000000000 +0200 +++ new/Digest-MD4-1.9/MANIFEST 2013-03-22 01:19:49.000000000 +0100 @@ -16,3 +16,4 @@ t/utf8.t Try some Unicode strings Changes Version history META.yml Module meta-data (added by MakeMaker) +META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/MD4.pm new/Digest-MD4-1.9/MD4.pm --- old/Digest-MD4-1.5/MD4.pm 2004-11-17 12:08:08.000000000 +0100 +++ new/Digest-MD4-1.9/MD4.pm 2013-03-22 01:14:05.000000000 +0100 @@ -3,7 +3,7 @@ use strict; use vars qw($VERSION @ISA @EXPORT_OK); -$VERSION = '1.5'; # ActivePerl version adds hexhash() for compatibility +$VERSION = '1.9'; # ActivePerl version adds hexhash() for compatibility require Exporter; *import = \&Exporter::import; @@ -240,7 +240,7 @@ The above example would print out the message: - Digest is 6df23dc03f9b54cc38a0fc1483df6e21 + Digest is b2b2b528f632f554ae9cb2c02c904eeb The same checksum can also be calculated in OO style: @@ -304,7 +304,7 @@ my $str = "abc\x{300}"; print md4_hex(encode_utf8($str)), "\n"; - # 8c2d46911f3f5a326455f0ed7a8ed3b3 + # fc2ef2836f9bc3f44ed6d7adee2f1533 =head1 SEE ALSO @@ -367,6 +367,6 @@ The C<Digest::MD5> module is written by Gisle Aas <[email protected]>. -The C<Digest::MD4> module is derived from Digest::MD5 by Mike McCauley ([email protected]) +The C<Digest::MD4> module is derived from Digest::MD5 by Mike McCauley ([email protected]) =cut diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/MD4.xs new/Digest-MD4-1.9/MD4.xs --- old/Digest-MD4-1.5/MD4.xs 2003-11-27 22:13:16.000000000 +0100 +++ new/Digest-MD4-1.9/MD4.xs 2013-03-14 07:05:04.000000000 +0100 @@ -1,4 +1,4 @@ -/* $Id: MD4.xs,v 1.40 2003/07/22 05:59:27 gisle Exp $ */ +/* $Id: MD4.xs,v 1.4 2013/03/14 05:51:35 mikem Exp mikem $ */ /* * This library is free software; you can redistribute it and/or @@ -90,45 +90,11 @@ * really does have 32 bits then this is a no-op. */ #if BYTEORDER > 0x4321 || defined(TRUNCATE_U32) - #define TO32(x) ((x) & 0xFFFFffff) #define TRUNC32(x) ((x) &= 0xFFFFffff) #else - #define TO32(x) (x) #define TRUNC32(x) /*nothing*/ #endif -/* The MD4 algorithm is defined in terms of little endian 32-bit - * values. The following macros (and functions) allow us to convert - * between native integers and such values. - */ -#undef BYTESWAP -#ifndef U32_ALIGNMENT_REQUIRED - #if BYTEORDER == 0x1234 /* 32-bit little endian */ - #define BYTESWAP(x) (x) /* no-op */ - - #elif BYTEORDER == 0x4321 /* 32-bit big endian */ - #define BYTESWAP(x) ((((x)&0xFF)<<24) \ - |(((x)>>24)&0xFF) \ - |(((x)&0x0000FF00)<<8) \ - |(((x)&0x00FF0000)>>8) ) - #endif -#endif - -#ifndef BYTESWAP -static void u2s(U32 u, U8* s) -{ - *s++ = (U8)(u & 0xFF); - *s++ = (U8)((u >> 8) & 0xFF); - *s++ = (U8)((u >> 16) & 0xFF); - *s = (U8)((u >> 24) & 0xFF); -} - -#define s2u(s,u) ((u) = (U32)(*s) | \ - ((U32)(*(s+1)) << 8) | \ - ((U32)(*(s+2)) << 16) | \ - ((U32)(*(s+3)) << 24)) -#endif - #define MD4_CTX_SIGNATURE 200003166 /* This stucture keeps the current state of algorithm. @@ -511,10 +477,9 @@ SV* self PREINIT: MD4_CTX* cont = get_md4_ctx(self); - char *myname = sv_reftype(SvRV(self),TRUE); + const char *myname = sv_reftype(SvRV(self),TRUE); MD4_CTX* context; PPCODE: - STRLEN my_na; New(55, context, 1, MD4_CTX); ST(0) = sv_newmortal(); sv_setref_pv(ST(0), myname , (void*)context); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/META.json new/Digest-MD4-1.9/META.json --- old/Digest-MD4-1.5/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Digest-MD4-1.9/META.json 2013-03-22 01:19:49.000000000 +0100 @@ -0,0 +1,41 @@ +{ + "abstract" : "unknown", + "author" : [ + "unknown" + ], + "dynamic_config" : 1, + "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630", + "license" : [ + "unknown" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, + "version" : "2" + }, + "name" : "Digest-MD4", + "no_index" : { + "directory" : [ + "t", + "inc" + ] + }, + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0" + } + }, + "runtime" : { + "requires" : { + "File::Spec" : "0" + } + } + }, + "release_status" : "stable", + "version" : "1.9" +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/META.yml new/Digest-MD4-1.9/META.yml --- old/Digest-MD4-1.5/META.yml 2004-11-17 12:11:31.000000000 +0100 +++ new/Digest-MD4-1.9/META.yml 2013-03-22 01:19:49.000000000 +0100 @@ -1,11 +1,22 @@ -# http://module-build.sourceforge.net/META-spec.html -#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# -name: Digest-MD4 -version: 1.5 -version_from: MD4.pm -installdirs: perl +--- +abstract: unknown +author: + - unknown +build_requires: + ExtUtils::MakeMaker: 0 +configure_requires: + ExtUtils::MakeMaker: 0 +dynamic_config: 1 +generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630' +license: unknown +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Digest-MD4 +no_index: + directory: + - t + - inc requires: - File::Spec: 0 - -distribution_type: module -generated_by: ExtUtils::MakeMaker version 6.17 + File::Spec: 0 +version: 1.9 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/Makefile.PL new/Digest-MD4-1.9/Makefile.PL --- old/Digest-MD4-1.5/Makefile.PL 2004-09-13 12:03:31.000000000 +0200 +++ new/Digest-MD4-1.9/Makefile.PL 2013-03-22 01:13:31.000000000 +0100 @@ -6,7 +6,6 @@ use Config qw(%Config); my @extra; -@extra = (DEFINE => "-DU32_ALIGNMENT_REQUIRED") unless free_u32_alignment(); if ($^O eq 'VMS') { if (defined($Config{ccname})) { @@ -28,104 +27,3 @@ ); - -sub free_u32_alignment -{ - $|=1; - print "Testing alignment requirements for U32... "; - return 1 if $^O eq 'VMS'; - return 1 if $^O eq 'MSWin32'; - - open(ALIGN_TEST, ">u32align.c") or die "$!"; - print ALIGN_TEST <<'EOT'; close(ALIGN_TEST); -/*--------------------------------------------------------------*/ -/* This program allocates a buffer of U8 (char) and then tries */ -/* to access it through a U32 pointer at every offset. The */ -/* program is expected to die with a bus error/seg fault for */ -/* machines that do not support unaligned integer read/write */ -/*--------------------------------------------------------------*/ - -#include <stdio.h> -#include "EXTERN.h" -#include "perl.h" - -#ifdef printf - #undef printf -#endif - -int main(int argc, char** argv, char** env) -{ -#if BYTEORDER == 0x1234 || BYTEORDER == 0x4321 - U8 buf[] = "\0\0\0\1\0\0\0\0"; - U32 *up; - int i; - - if (sizeof(U32) != 4) { - printf("sizeof(U32) is not 4, but %d\n", sizeof(U32)); - exit(1); - } - - fflush(stdout); - - for (i = 0; i < 4; i++) { - up = (U32*)(buf + i); - if (! ((*up == 1 << (8*i)) || /* big-endian */ - (*up == 1 << (8*(3-i))) /* little-endian */ - ) - ) - { - printf("read failed (%x)\n", *up); - exit(2); - } - } - - /* write test */ - for (i = 0; i < 4; i++) { - up = (U32*)(buf + i); - *up = 0xBeef; - if (*up != 0xBeef) { - printf("write failed (%x)\n", *up); - exit(3); - } - } - - printf("no restrictions\n"); - exit(0); -#else - printf("unusual byteorder, playing safe\n"); - exit(1); -#endif - return 0; -} -/*--------------------------------------------------------------*/ -EOT - - my $cc_cmd = "$Config{cc} $Config{ccflags} -I$Config{archlibexp}/CORE"; - my $exe = "u32align$Config{exe_ext}"; - $cc_cmd .= " -o $exe"; - my $rc; - $rc = system("$cc_cmd $Config{ldflags} u32align.c $Config{libs}"); - if ($rc) { - print "Can't compile test program. Will ensure alignment to play safe.\n\n"; - unlink("u32align.c", $exe, "u32align$Config{obj_ext}"); - return 0; - } - - $rc = system("./$exe"); - unlink("u32align.c", $exe, "u32align$Config{obj_ext}"); - - return 1 unless $rc; - - if ($rc > 0x80) { - $rc >>= 8; - print "Test program exit status was $rc\n"; - } else { - if ($rc & 0x80) { - $rc &= ~0x80; - print "Core dump deleted\n"; - unlink("core"); - } - print "signal $rc\n"; - } - return 0; -} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Digest-MD4-1.5/t/files.t new/Digest-MD4-1.9/t/files.t --- old/Digest-MD4-1.5/t/files.t 2004-11-17 12:11:02.000000000 +0100 +++ new/Digest-MD4-1.9/t/files.t 2013-03-22 01:19:41.000000000 +0100 @@ -11,36 +11,39 @@ use Digest::MD4 qw(md4 md4_hex md4_base64); # To update the EBCDIC section even on a Latin 1 platform, -# run this script with $ENV{EBCDIC_MD4SUM} set to a true value. +# run this script with $ENV{EBCDIC_MD4SUM} set to a true value: +# EBCDIC_MD4SUM=1 perl t/files.t # (You'll need to have Perl 5.7.3 or later, to have the Encode installed.) # (And remember that under the Perl core distribution you should # also have the $ENV{PERL_CORE} set to a true value.) -# Similarly, to update MacOS section, run with $ENV{MAC_MD4SUM} set. +# Similarly, to update MacOS section, run with $ENV{MAC_MD4SUM} set: +# MAC_MD4SUM=1 perl t/files.t my $EXPECT; if (ord "A" == 193) { # EBCDIC $EXPECT = <<EOT; -3f3567d7a404e30bafa245c206c958e6 Changes +61fe4ecdcfbe1ff572e052b43fd540de Changes 0dbd12438619d37abe39c41e4584ebe0 README -86dc1e88bf2f4c41bc4d365686604342 MD4.pm -07995cc4bb36cba6306fded60ca69805 MD4.xs +ee852e2732fc4e158b1ca6b35e8f22da MD4.pm +3ae533df68e0be3ee2dac67329c8dad0 MD4.xs f178f04d0d8305c328a3de281313d642 rfc1320.txt EOT } elsif ("\n" eq "\015") { # MacOS + # This is the output of: 'md4sum Changes README MD4.pm MD4.xs rfc1320.txt' $EXPECT = <<EOT; -ed06361c6e9000bef1df740bcbad8622 Changes +1848e8b9f8982557b7358944c320908b Changes a64a8e41ca2fe973ffbb46aa66d70bd2 README -bfdcb4108a0aec528b1ac9c8407f3b3a MD4.pm -9db8b845da6b42d7f3cbaf690504dfb4 MD4.xs +8f1d87025a08f7b1bdb968858d6c4044 MD4.pm +6ef61bd88dfbb1f1401c2d8f3612d5fd MD4.xs 2089ab664427233cd7043d91f0021ff8 rfc1320.txt EOT } else { # This is the output of: 'md4sum Changes README MD4.pm MD4.xs rfc1320.txt' $EXPECT = <<EOT; -ed06361c6e9000bef1df740bcbad8622 Changes +1848e8b9f8982557b7358944c320908b Changes a64a8e41ca2fe973ffbb46aa66d70bd2 README -bfdcb4108a0aec528b1ac9c8407f3b3a MD4.pm -9db8b845da6b42d7f3cbaf690504dfb4 MD4.xs +8f1d87025a08f7b1bdb968858d6c4044 MD4.pm +6ef61bd88dfbb1f1401c2d8f3612d5fd MD4.xs 2089ab664427233cd7043d91f0021ff8 rfc1320.txt EOT } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
