Michael Schröder
35bc659799
* unicode 12.1 is supported * turkic UTF-8 locales are now seamlessly supported * assigning non-zero to $[ is fatal * some formerly deprecated uses of an unescaped left brace "{" in regular expression patterns are now illegal * previously deprecated sysread()/syswrite() on :utf8 handles is now fatal * my() in false conditional prohibited * remove File::Glob::glob() * various performance enhancements - updated patches: * perl-5.22.0_wrong_rpm_provides.diff * perl-gdbm-test-no-mmap.diff * perl-fix2020.patch * perl-reproducible2.patch - dropped patches: * perl-revert-caretx.diff * perl-regexp-refoverflow.diff OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=182
13 lines
405 B
Diff
13 lines
405 B
Diff
--- ./lib/sigtrap.pm.orig 2019-10-24 20:18:05.000000000 +0000
|
|
+++ ./lib/sigtrap.pm 2019-11-19 13:38:25.304577027 +0000
|
|
@@ -80,7 +80,8 @@ sub handler_die {
|
|
}
|
|
|
|
sub handler_traceback {
|
|
- package DB; # To get subroutine args.
|
|
+ package DB # line break to prevent wrong rpm provides
|
|
+ ; # To get subroutine args.
|
|
my $use_print;
|
|
$SIG{'ABRT'} = DEFAULT;
|
|
kill 'ABRT', $$ if $panic++;
|