Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-UUID for openSUSE:Factory checked in at 2026-09-10 16:05:11 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-UUID (Old) and /work/SRC/openSUSE:Factory/.perl-UUID.new.1265 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-UUID" Thu Sep 10 16:05:11 2026 rev:10 rq:1376888 version:0.390.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-UUID/perl-UUID.changes 2026-06-09 14:27:55.935495288 +0200 +++ /work/SRC/openSUSE:Factory/.perl-UUID.new.1265/perl-UUID.changes 2026-09-10 16:05:14.825943855 +0200 @@ -1,0 +2,18 @@ +Sun Sep 6 09:30:35 UTC 2026 - Tina Müller <[email protected]> + +- updated to 0.390.0 (0.39) + see /usr/share/doc/packages/perl-UUID/Changes + + 0.39 Sat Sep 5 11:48:16 EDT 2026 + - Fix deadlock on MacOS/OSX. + - Thanks Kurt Starsinic, Matt Martini. [rt.cpan.org #178101] + - AUTOMATED_TESTING no longer forces verbose. + - More explicit error checking in lock wrapper. + - Fixed possible looping in UMTX_lock in some cases. + - Fixed chicken-egg problem in test lib in some cases. + - Switched to flush by default in test lib due to missing flush() in + older IO::File. + - Started adding coverage tests. + - Fixed a few broken POD tags. + +------------------------------------------------------------------- Old: ---- UUID-0.38.tar.gz New: ---- UUID-0.39.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-UUID.spec ++++++ --- /var/tmp/diff_new_pack.iLskb6/_old 2026-09-10 16:05:15.659978762 +0200 +++ /var/tmp/diff_new_pack.iLskb6/_new 2026-09-10 16:05:15.662978888 +0200 @@ -18,10 +18,10 @@ %define cpan_name UUID Name: perl-UUID -Version: 0.380.0 +Version: 0.390.0 Release: 0 -# 0.38 -> normalize -> 0.380.0 -%define cpan_version 0.38 +# 0.39 -> normalize -> 0.390.0 +%define cpan_version 0.39 License: Artistic-2.0 Summary: Universally Unique Identifier library for Perl URL: https://metacpan.org/release/%{cpan_name} ++++++ UUID-0.38.tar.gz -> UUID-0.39.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/Changes new/UUID-0.39/Changes --- old/UUID-0.38/Changes 2026-05-14 16:53:51.000000000 +0200 +++ new/UUID-0.39/Changes 2026-09-05 17:50:09.000000000 +0200 @@ -1,5 +1,17 @@ Revision history for Perl extension UUID. +0.39 Sat Sep 5 11:48:16 EDT 2026 + - Fix deadlock on MacOS/OSX. + - Thanks Kurt Starsinic, Matt Martini. [rt.cpan.org #178101] + - AUTOMATED_TESTING no longer forces verbose. + - More explicit error checking in lock wrapper. + - Fixed possible looping in UMTX_lock in some cases. + - Fixed chicken-egg problem in test lib in some cases. + - Switched to flush by default in test lib due to missing flush() in + older IO::File. + - Started adding coverage tests. + - Fixed a few broken POD tags. + 0.38 Thu May 14 10:52:38 EDT 2026 - Use system randomness for seeding internal PRNG. Source is platform-specific and preferred in the following order, if @@ -12,7 +24,7 @@ - /dev/urandom - Move internal context to anonymous mmap to synchronize timestamps between multiple processes or threads. This also means random - numbers from all processes/threads now come from a common pool, + numbers for all processes/threads now come from a common pool, eliminating chance of parallel duplication. - Improved internal context locking, switching away from pthreads due to cross-platform inconsistencies with respect to process-shared diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/MANIFEST new/UUID-0.39/MANIFEST --- old/UUID-0.38/MANIFEST 2026-05-14 16:54:50.000000000 +0200 +++ new/UUID-0.39/MANIFEST 2026-09-05 17:56:42.000000000 +0200 @@ -31,6 +31,7 @@ t/0ld/9old_test.t t/0ld/9zoid22.t t/0ld/9zoid31.t +t/1cover/no-time-hires.t t/1generate/generic.t t/1generate/v1.t t/1generate/v1_random.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/MANIFEST.SKIP new/UUID-0.39/MANIFEST.SKIP --- old/UUID-0.38/MANIFEST.SKIP 2026-05-06 17:15:37.000000000 +0200 +++ new/UUID-0.39/MANIFEST.SKIP 2026-09-05 17:31:53.000000000 +0200 @@ -3,4 +3,4 @@ .gitmeta .gitmeta.db .gitmeta.git -.no-my-meta +.no-mymeta diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/META.json new/UUID-0.39/META.json --- old/UUID-0.38/META.json 2026-05-14 16:54:48.000000000 +0200 +++ new/UUID-0.39/META.json 2026-09-05 17:56:41.000000000 +0200 @@ -83,10 +83,10 @@ "provides" : { "UUID" : { "file" : "lib/UUID.pm", - "version" : "0.38" + "version" : "0.39" } }, "release_status" : "stable", - "version" : "0.38", + "version" : "0.39", "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/META.yml new/UUID-0.39/META.yml --- old/UUID-0.38/META.yml 2026-05-14 16:54:49.000000000 +0200 +++ new/UUID-0.39/META.yml 2026-09-05 17:56:41.000000000 +0200 @@ -46,7 +46,7 @@ provides: UUID: file: lib/UUID.pm - version: '0.38' + version: '0.39' requires: Carp: '0' DynaLoader: '0' @@ -57,5 +57,5 @@ strict: '0' vars: '0' warnings: '0' -version: '0.38' +version: '0.39' x_serialization_backend: 'CPAN::Meta::YAML version 0.012' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/Makefile.PL new/UUID-0.39/Makefile.PL --- old/UUID-0.38/Makefile.PL 2026-05-07 06:09:42.000000000 +0200 +++ new/UUID-0.39/Makefile.PL 2026-09-05 17:32:21.000000000 +0200 @@ -21,7 +21,7 @@ my $UUID_version = get_uuidpm_version(); -my $no_mymeta = -e '.no-my-meta'; +my $no_mymeta = -e '.no-mymeta'; my ($libs, $defines) = check_flags(); my $has_threads = check_threads(); @@ -512,7 +512,7 @@ # -# make TEST_VERBOSE=1 when AUTOMATED_TESTING=1. +# make TEST_VERBOSE=1 when AUTOMATED_TESTING=1 and dev release. # add t/*/*.t to tests. # add TEST_LIB variable, set to t/lib. # insert TEST_LIB before other libs. @@ -521,12 +521,14 @@ sub test { my $t = shift->SUPER::test(@_); # - # make TEST_VERBOSE=1 when AUTOMATED_TESTING=1. + # make TEST_VERBOSE=1 when AUTOMATED_TESTING=1 and dev release. if ( $ENV{AUTOMATED_TESTING} - or $ENV{NONINTERACTIVE_TESTING} - or $ENV{PERL_CPAN_REPORTER_CONFIG} + || $ENV{NONINTERACTIVE_TESTING} + || $ENV{PERL_CPAN_REPORTER_CONFIG} + and $UUID_version =~ /_/ ) { - $t =~ s{TEST_VERBOSE\s*=\s*0}{TEST_VERBOSE = 1}msg; + # turn this off for now.. its stable enough to not need + $t =~ s{__XXX__TEST_VERBOSE\s*=\s*0}{TEST_VERBOSE = 1}msg; } # # add t/*/*.t to tests. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/README new/UUID-0.39/README --- old/UUID-0.38/README 2026-05-14 16:54:49.000000000 +0200 +++ new/UUID-0.39/README 2026-09-05 17:56:42.000000000 +0200 @@ -217,13 +217,13 @@ of calling generate_v1() then unparse(), but throwing away the intermediate binary UUID. - uuid3(NAMESPACE = NAME)> + uuid3(NAMESPACE => NAME) Same as uuid1() but version 3. See generate_v3(). uuid4() Same as uuid1() but version 4. - uuid5(NAMESPACE = NAME)> + uuid5(NAMESPACE => NAME) Same as uuid1() but version 5. See generate_v5(). uuid6() @@ -245,7 +245,7 @@ 2 Microsoft 3 Other - version( $uuid> ) + version( $uuid ) Returns the version of binary $uuid. This module only generates version 1, 3, 4, 5, 6, and version 7 UUIDs. @@ -458,13 +458,13 @@ Authors and/or previous maintainers: - Lukas Zapletal <[email protected]> + Lukas Zapletal - Joseph N. Hall <[email protected]> + Joseph N. Hall - Colin Faber <[email protected]> + Colin Faber - Peter J. Braam <[email protected]> + Peter J. Braam CONTRIBUTORS David E. Wheeler @@ -481,6 +481,10 @@ Petr Pisar + Kurt Starsinic + + Matt Martini + SEE ALSO RFC4122 - <https://www.rfc-editor.org/rfc/rfc4122> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/lib/UUID.pm new/UUID-0.39/lib/UUID.pm --- old/UUID-0.38/lib/UUID.pm 2026-05-14 16:30:57.000000000 +0200 +++ new/UUID-0.39/lib/UUID.pm 2026-09-05 17:51:07.000000000 +0200 @@ -10,7 +10,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $VERSION); @ISA = qw(DynaLoader); -$VERSION = '0.38'; +$VERSION = '0.39'; %EXPORT_TAGS = ( 'all' => [qw( @@ -216,7 +216,7 @@ multicast bit of this address is set to avoid conflict with addresses returned from network cards. -=head2 B<generate_v3(> I<$uuid>, I<NAMESPACE> => I<NAME> B<)> +=head2 B<generate_v3(> I<$uuid>, I<NAMESPACE> =E<gt> I<NAME> B<)> Generate a new version 3 binary UUID using the given namespace and name hashed through the MD5 algorithm. @@ -233,7 +233,7 @@ Generates a new version 4 binary UUID using mostly random data. There are 6 bits used for the UUID format, leaving 122 bits for randomness. -=head2 B<generate_v5(> I<$uuid>, I<NAMESPACE> => I<NAME> B<)> +=head2 B<generate_v5(> I<$uuid>, I<NAMESPACE> =E<gt> I<NAME> B<)> Generate a new version 5 binary UUID using the given namespace and name hashed through the SHA1 algorithm. @@ -323,7 +323,7 @@ of calling B<generate_v1()> then B<unparse()>, but throwing away the intermediate binary UUID. -=head2 B<uuid3(NAMESPACE => NAME)> +=head2 B<uuid3(NAMESPACE =E<gt> NAME)> Same as B<uuid1()> but version 3. See B<generate_v3()>. @@ -331,7 +331,7 @@ Same as B<uuid1()> but version 4. -=head2 B<uuid5(NAMESPACE => NAME)> +=head2 B<uuid5(NAMESPACE =E<gt> NAME)> Same as B<uuid1()> but version 5. See B<generate_v5()>. @@ -357,7 +357,7 @@ 2 Microsoft 3 Other -=head2 B<version(> I<$uuid>> B<)> +=head2 B<version(> I<$uuid> B<)> Returns the version of binary I<$uuid>. @@ -595,13 +595,13 @@ Authors and/or previous maintainers: - Lukas Zapletal <[email protected]> + Lukas Zapletal - Joseph N. Hall <[email protected]> + Joseph N. Hall - Colin Faber <[email protected]> + Colin Faber - Peter J. Braam <[email protected]> + Peter J. Braam =head1 CONTRIBUTORS @@ -619,6 +619,10 @@ Petr Pisar +Kurt Starsinic + +Matt Martini + =head1 SEE ALSO B<RFC4122> - L<https://www.rfc-editor.org/rfc/rfc4122> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/t/0LIB/MyTest.pm new/UUID-0.39/t/0LIB/MyTest.pm --- old/UUID-0.38/t/0LIB/MyTest.pm 2026-05-14 16:22:14.000000000 +0200 +++ new/UUID-0.39/t/0LIB/MyTest.pm 2026-09-05 17:32:21.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; require Exporter; -require UUID; +#require UUID; # require'd in note() to enable coverage testing use vars qw(@EXPORT $TMPDIR $TMPFILE $TESTS_RUN); use constant USE_ITHREADS => !!$ENV{USE_ITHREADS}; @@ -37,16 +37,31 @@ *import = \&Exporter::import; sub _err; +# Apparently earlier versions of IO::File didn't have flush(), +# so we'll just do this instead. And yea, we need both. +select STDERR; $|=1; +select STDOUT; $|=1; + our $PLAN_SENT = 0; our $TESTS_PLANNED = 0; -my $realnode = UUID::_realnode(); -substr $realnode, 0, 24, '' if $realnode; +my $realnode; # defined in note() or diag() sub note { my $work = join '', map { defined($_) ? $_ : '<UNDEF>' } @_; chomp $work; + # done this way so we dont automatically pull in UUID + # at compile time. there is one coverage test that uses + # this module but relies on it not doing that. it is + # careful not to call note() or diag(). + $realnode ||= do { + require UUID; + my $rn = UUID::_realnode(); + substr $rn, 0, 24, '' if $rn; + $rn; + }; + # hide the real node anywhere it appears. $work =~ s/$realnode/XXXXXXXXXXXX/ig if $realnode; @@ -56,7 +71,31 @@ } sub diag { - print "#DIAG FIX ME!\n"; + my $work = join '', map { defined($_) ? $_ : '<UNDEF>' } @_; + chomp $work; + + # see note in note(). + $realnode ||= do { + require UUID; + my $rn = UUID::_realnode(); + substr $rn, 0, 24, '' if $rn; + $rn; + }; + + # hide the real node anywhere it appears. + $work =~ s/$realnode/XXXXXXXXXXXX/ig + if $realnode; + + warn '# ', $work, "\n"; + undef; +} + +sub diag_no_hide { + my $work = join '', map { defined($_) ? $_ : '<UNDEF>' } @_; + chomp $work; + + warn '# ', $work, "\n"; + undef; } # some of the tests call these from within threads, @@ -290,7 +329,7 @@ chomp $eval_error; $@ =~ s{^BEGIN failed--compilation aborted at .*$} {BEGIN failed--compilation aborted at $filename line $line.}m; - diag(<<DIAGNOSTIC); + diag_no_hide(<<DIAGNOSTIC); Tried to use '$module'. Error: $eval_error DIAGNOSTIC diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/t/1cover/no-time-hires.t new/UUID-0.39/t/1cover/no-time-hires.t --- old/UUID-0.38/t/1cover/no-time-hires.t 1970-01-01 01:00:00.000000000 +0100 +++ new/UUID-0.39/t/1cover/no-time-hires.t 2026-09-05 17:32:21.000000000 +0200 @@ -0,0 +1,54 @@ +# +# what happens if Time::HiRes is not available ? +# +#BEGIN { # use this for a fake Time::HiRes +# unshift @INC, sub { +# my (undef, $what) = @_; +# print "include -> $what\n"; +# return if $what ne 'Time/HiRes.pm'; +# open my $fh, '<', 't/1cover/no-time-hires.t' or die "open: $!"; +# while (my $junk = <$fh>) { +# $junk =~ s/[\r\n]+$//g; #chomp +# last if $junk eq '__DA'.'TA__'; +# } +# return \'', $fh; +# }; +#} +use strict; +use warnings; +BEGIN { + # need to pre-load modules used + # everywhere else EXCEPT Time::HiRes + require vars; + require constant; + require Exporter; + require Carp; + require DynaLoader; + require File::Temp; + #require Time::HiRes; + local @INC = ( 't/0LIB', @INC ); + require MyTest; # this requires UUID if note() or diag() called, so dont do that + MyTest::pass('loaded'); +} + +MyTest::pass('running'); + +eval { + local @INC = qw(blib/lib blib/arch); + require UUID; +}; +if ($@ =~ /Time::HiRes is required/) { + MyTest::pass('died as expected'); +} +elsif ($@ ne '') { + my $e = $@; + chomp $e; + my @lines = split $/, $e; + MyTest::fail('died with wrong error'); + print "# $_\n" for @lines; +} +else { + MyTest::fail('did not die'); +} + +MyTest::done_testing(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/ulib/PORT.h new/UUID-0.39/ulib/PORT.h --- old/UUID-0.38/ulib/PORT.h 2026-05-06 04:45:42.000000000 +0200 +++ new/UUID-0.39/ulib/PORT.h 2026-07-31 20:56:23.000000000 +0200 @@ -105,5 +105,55 @@ #define croak_caller my_croak_caller #endif +#ifndef PERL_VERSION +# undef SUBVERSION /* OS/390 */ +# include <patchlevel.h> +# ifndef SUBVERSION +# define SUBVERSION 0 +# endif +# if !defined(PATCHLEVEL))) +# include <could_not_find_Perl_patchlevel.h> +# endif +# define PERL_REVISION 5 +# define PERL_VERSION PATCHLEVEL +# define PERL_SUBVERSION SUBVERSION +#endif + +#ifndef PERL_VERSION_DECIMAL +# define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s) +#endif +#ifndef PERL_DECIMAL_VERSION +# define PERL_DECIMAL_VERSION \ + PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION) +#endif + +#ifndef PERL_VERSION_LT +# define PERL_VERSION_LT(r,v,s) \ + (PERL_DECIMAL_VERSION < PERL_VERSION_DECIMAL(r,v,s)) +#endif + +#ifndef PERL_VERSION_EQ +# define PERL_VERSION_EQ(r,v,s) \ + (PERL_DECIMAL_VERSION == PERL_VERSION_DECIMAL(r,v,s)) +#endif + +#ifdef SvPVbyte +# if PERL_VERSION_EQ(5,6,1) + /* SvPVbyte does not work in perl-5.6.1, borrowed version for 5.7.3 */ +# undef SvPVbyte +# define SvPVbyte(sv, lp) \ + ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \ + ? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp)) + + static char * + my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp) { + sv_utf8_downgrade(sv,0); + return SvPV(sv,*lp); + } +# endif +#else +# define SvPVbyte SvPV +#endif + #endif /* ex:set ts=2 sw=2 itab=spaces: */ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/ulib/TYPE.h new/UUID-0.39/ulib/TYPE.h --- old/UUID-0.38/ulib/TYPE.h 2026-05-07 06:09:42.000000000 +0200 +++ new/UUID-0.39/ulib/TYPE.h 2026-07-31 20:56:23.000000000 +0200 @@ -1,37 +1,6 @@ #ifndef ULIB__TYPE_H #define ULIB__TYPE_H -#ifndef PERL_VERSION -# undef SUBVERSION /* OS/390 */ -# include <patchlevel.h> -# ifndef SUBVERSION -# define SUBVERSION 0 -# endif -# if !defined(PATCHLEVEL))) -# include <could_not_find_Perl_patchlevel.h> -# endif -# define PERL_REVISION 5 -# define PERL_VERSION PATCHLEVEL -# define PERL_SUBVERSION SUBVERSION -#endif - -#ifndef PERL_VERSION_DECIMAL -# define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s) -#endif -#ifndef PERL_DECIMAL_VERSION -# define PERL_DECIMAL_VERSION \ - PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION) -#endif - -#ifndef PERL_VERSION_LT -# define PERL_VERSION_LT(r,v,s) \ - (PERL_DECIMAL_VERSION < PERL_VERSION_DECIMAL(r,v,s)) -#endif -#ifndef PERL_VERSION_EQ -# define PERL_VERSION_EQ(r,v,s) \ - (PERL_DECIMAL_VERSION == PERL_VERSION_DECIMAL(r,v,s)) -#endif - /* related from SO for gcc: * https://stackoverflow.com/questions/1188939/representing-128-bit-numbers-in-c @@ -210,5 +179,7 @@ #define aUCXT aTHX_ my_cxtp #define UCXT (*my_cxtp) +#define SMEM UCXT.shared + #endif /* ex:set ts=2 sw=2 itab=spaces: */ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/ulib/UMTX.h new/UUID-0.39/ulib/UMTX.h --- old/UUID-0.38/ulib/UMTX.h 2026-05-07 06:09:42.000000000 +0200 +++ new/UUID-0.39/ulib/UMTX.h 2026-08-30 02:41:57.000000000 +0200 @@ -78,25 +78,28 @@ */ /* For OSX and archlinux but arch seems to have a working sem_init/wait */ /* dispatch_semaphore_t is a pointer type */ -#define UMTX_init SMEM->LOCK = dispatch_semaphore_create(0) +#define UMTX_init SMEM->LOCK = dispatch_semaphore_create(1) #define UMTX_lock dispatch_semaphore_wait(SMEM->LOCK, DISPATCH_TIME_FOREVER) #define UMTX_unlock dispatch_semaphore_signal(SMEM->LOCK) #else -#define UMTX_init \ - if (sem_init(&SMEM->LOCK, 1, 1)) \ - Perl_croak_nocontext("panic: sem_init (%d) [%s:%d]", errno, __FILE__, __LINE__) -#define UMTX_lock do { \ +#define UMTX_init do { \ + if (sem_init(&SMEM->LOCK, 1, 1) == 0) break; \ + if (errno == EINVAL) Perl_croak_nocontext("panic: sem_init (EINVAL) at %s line %d\n", __FILE__, __LINE__); \ + Perl_croak_nocontext("panic: sem_init (%d) at %s line %d\n", errno, __FILE__, __LINE__); \ +} while (1); +#define UMTX_lock do { \ if (sem_wait(&SMEM->LOCK) == 0) break; \ - if (errno == EINVAL) \ - Perl_croak_nocontext("panic: sem_wait (EINVAL) [%s:%d]", __FILE__, __LINE__); \ + if (errno == EINTR) continue; \ + if (errno == EINVAL) Perl_croak_nocontext("panic: sem_wait (EINVAL) at %s line %d\n", __FILE__, __LINE__); \ + Perl_croak_nocontext("panic: sem_wait (%d) at %s line %d\n", errno, __FILE__, __LINE__); \ +} while (1); +#define UMTX_unlock do { \ + if (sem_post(&SMEM->LOCK) == 0) break; \ + if (errno == EINVAL) Perl_croak_nocontext("panic: sem_post (EINVAL) at %s line %d\n", __FILE__, __LINE__); \ + Perl_croak_nocontext("panic: sem_post (%d) at %s line %d\n", errno, __FILE__, __LINE__); \ } while (1); -#define UMTX_unlock { \ - int r = sem_post(&SMEM->LOCK); \ - if (r != 0) \ - Perl_croak_nocontext("panic: sem_post (TRUE) [%s:%d]", __FILE__, __LINE__); \ -} #endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/UUID-0.38/ulib/UUID.h new/UUID-0.39/ulib/UUID.h --- old/UUID-0.38/ulib/UUID.h 2026-05-06 17:15:37.000000000 +0200 +++ new/UUID-0.39/ulib/UUID.h 2026-07-31 20:56:23.000000000 +0200 @@ -94,27 +94,8 @@ #include "EXTERN.h" #include "perl.h" #include "ulib/TYPE.h" -#define SMEM UCXT.shared #include "ulib/PORT.h" #include "ulib/UMTX.h" -#ifdef SvPVbyte -# if PERL_VERSION_EQ(5,6,1) - /* SvPVbyte does not work in perl-5.6.1, borrowed version for 5.7.3 */ -# undef SvPVbyte -# define SvPVbyte(sv, lp) \ - ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \ - ? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp)) - - static char * - my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp) { - sv_utf8_downgrade(sv,0); - return SvPV(sv,*lp); - } -# endif -#else -# define SvPVbyte SvPV -#endif - #endif /* ex:set ts=2 sw=2 itab=spaces: */ ++++++ _scmsync.obsinfo ++++++ --- /var/tmp/diff_new_pack.iLskb6/_old 2026-09-10 16:05:15.956991193 +0200 +++ /var/tmp/diff_new_pack.iLskb6/_new 2026-09-10 16:05:15.967991654 +0200 @@ -1,6 +1,6 @@ -mtime: 1778833253 -commit: fbaeb73ae9a0ee19fd7bd6d0eee820f8c4aa54182e86d3b11ec1b7254bfed22d +mtime: 1788687035 +commit: 00b5121ea563b175f289c7722997fc34228104198892786997c447ca8adafc18 url: https://src.opensuse.org/perl/perl-UUID -revision: fbaeb73ae9a0ee19fd7bd6d0eee820f8c4aa54182e86d3b11ec1b7254bfed22d +revision: 00b5121ea563b175f289c7722997fc34228104198892786997c447ca8adafc18 projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-09-06 11:30:35.000000000 +0200 @@ -0,0 +1 @@ +.osc
