Hello community,
here is the log from the commit of package perl-Parse-PMFile for
openSUSE:Factory checked in at 2020-12-16 11:00:40
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Parse-PMFile (Old)
and /work/SRC/openSUSE:Factory/.perl-Parse-PMFile.new.2328 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Parse-PMFile"
Wed Dec 16 11:00:40 2020 rev:3 rq:856006 version:0.43
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Parse-PMFile/perl-Parse-PMFile.changes
2019-11-26 16:53:15.944229749 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Parse-PMFile.new.2328/perl-Parse-PMFile.changes
2020-12-16 11:00:44.283584661 +0100
@@ -1,0 +2,10 @@
+Sat Dec 12 03:08:36 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 0.43
+ see /usr/share/doc/packages/perl-Parse-PMFile/Changes
+
+ 0.43 2020/12/12
+ - Avoid instantiating `Safe` compartment if operating in "unsafe" mode.
+ (GH#12; bleargh45++)
+
+-------------------------------------------------------------------
Old:
----
Parse-PMFile-0.42.tar.gz
New:
----
Parse-PMFile-0.43.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Parse-PMFile.spec ++++++
--- /var/tmp/diff_new_pack.VaLqFm/_old 2020-12-16 11:00:45.015585380 +0100
+++ /var/tmp/diff_new_pack.VaLqFm/_new 2020-12-16 11:00:45.019585384 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Parse-PMFile
#
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,13 +17,13 @@
Name: perl-Parse-PMFile
-Version: 0.42
+Version: 0.43
Release: 0
%define cpan_name Parse-PMFile
Summary: Parses .pm file as PAUSE does
License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: https://metacpan.org/release/%{cpan_name}
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/I/IS/ISHIGAKI/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
++++++ Parse-PMFile-0.42.tar.gz -> Parse-PMFile-0.43.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-PMFile-0.42/Changes
new/Parse-PMFile-0.43/Changes
--- old/Parse-PMFile-0.42/Changes 2019-11-09 04:10:57.000000000 +0100
+++ new/Parse-PMFile-0.43/Changes 2020-12-12 00:34:03.000000000 +0100
@@ -1,5 +1,9 @@
Revision history for Parse-PMFile
+0.43 2020/12/12
+ - Avoid instantiating `Safe` compartment if operating in "unsafe" mode.
+ (GH#12; bleargh45++)
+
0.42 2019/11/09
- no code changes
- explicitly declared ExtUtils::MakeMaker::CPANfile as a configure
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-PMFile-0.42/META.json
new/Parse-PMFile-0.43/META.json
--- old/Parse-PMFile-0.42/META.json 2019-11-09 04:11:30.000000000 +0100
+++ new/Parse-PMFile-0.43/META.json 2020-12-12 00:34:32.000000000 +0100
@@ -52,6 +52,6 @@
"url" : "https://github.com/charsbar/Parse-PMFile";
}
},
- "version" : "0.42",
+ "version" : "0.43",
"x_serialization_backend" : "JSON::PP version 4.00"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-PMFile-0.42/META.yml
new/Parse-PMFile-0.43/META.yml
--- old/Parse-PMFile-0.42/META.yml 2019-11-09 04:11:30.000000000 +0100
+++ new/Parse-PMFile-0.43/META.yml 2020-12-12 00:34:32.000000000 +0100
@@ -27,5 +27,5 @@
version: '0.83'
resources:
repository: https://github.com/charsbar/Parse-PMFile
-version: '0.42'
+version: '0.43'
x_serialization_backend: 'CPAN::Meta::YAML version 0.012'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-PMFile-0.42/lib/Parse/PMFile.pm
new/Parse-PMFile-0.43/lib/Parse/PMFile.pm
--- old/Parse-PMFile-0.42/lib/Parse/PMFile.pm 2019-11-09 04:11:04.000000000
+0100
+++ new/Parse-PMFile-0.43/lib/Parse/PMFile.pm 2020-12-12 00:33:08.000000000
+0100
@@ -10,7 +10,7 @@
use version ();
use File::Spec ();
-our $VERSION = '0.42';
+our $VERSION = '0.43';
our $VERBOSE = 0;
our $ALLOW_DEV_VERSION = 0;
our $FORK = 0;
@@ -208,28 +208,31 @@
} else {
# XXX Limit Resources too
- my($comp) = Safe->new;
+ my $comp;
my $eval = qq{
local(\$^W) = 0;
Parse::PMFile::_parse_version_safely("$pmcp");
};
- $comp->permit("entereval"); # for MBARBON/Module-Info-0.30.tar.gz
- $comp->share("*Parse::PMFile::_parse_version_safely");
- $comp->share("*version::new");
- $comp->share("*version::numify");
- $comp->share_from('main', ['*version::',
- '*charstar::',
- '*Exporter::',
- '*DynaLoader::']);
- $comp->share_from('version', ['&qv']);
- $comp->permit(":base_math"); # atan2 (Acme-Pi)
- # $comp->permit("require"); # no strict!
- $comp->deny(qw/enteriter iter unstack goto/); # minimum protection
against Acme::BadExample
+ unless ($self->{UNSAFE} || $UNSAFE) {
+ $comp = Safe->new;
+ $comp->permit("entereval"); # for
MBARBON/Module-Info-0.30.tar.gz
+ $comp->share("*Parse::PMFile::_parse_version_safely");
+ $comp->share("*version::new");
+ $comp->share("*version::numify");
+ $comp->share_from('main', ['*version::',
+ '*charstar::',
+ '*Exporter::',
+ '*DynaLoader::']);
+ $comp->share_from('version', ['&qv']);
+ $comp->permit(":base_math"); # atan2 (Acme-Pi)
+ # $comp->permit("require"); # no strict!
+ $comp->deny(qw/enteriter iter unstack goto/); # minimum
protection against Acme::BadExample
+ }
version->import('qv') if $self->{UNSAFE} || $UNSAFE;
{
no strict;
- $v = ($self->{UNSAFE} || $UNSAFE) ? eval $eval :
$comp->reval($eval);
+ $v = $comp ? $comp->reval($eval) : eval $eval;
}
if ($@){ # still in the child process, out of Safe::reval
my $err = $@;
@@ -239,7 +242,7 @@
local($^W) = 0;
my ($sigil, $vstr) = ($1, $3);
$self->_restore_overloaded_stuff(1) if $err->{line} =~
/use\s+version\b|version\->|qv\(/;
- $v = ($self->{UNSAFE} || $UNSAFE) ? eval $vstr :
$comp->reval($vstr);
+ $v = $comp ? $comp->reval($vstr) : eval $vstr;
$v = $$v if $sigil eq '*' && ref $v;
}
if ($@ or !$v) {
@@ -267,7 +270,7 @@
utf8::encode($v);
# undefine empty $v as if read from the tmpfile
$v = undef if defined $v && !length $v;
- $comp->erase;
+ $comp->erase if ($comp);
$self->_restore_overloaded_stuff;
}
}
_______________________________________________
openSUSE Commits mailing list -- [email protected]
To unsubscribe, email [email protected]
List Netiquette: https://en.opensuse.org/openSUSE:Mailing_list_netiquette
List Archives:
https://lists.opensuse.org/archives/list/[email protected]
