Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Devel-OverloadInfo for
openSUSE:Factory checked in at 2021-04-29 22:46:52
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Devel-OverloadInfo (Old)
and /work/SRC/openSUSE:Factory/.perl-Devel-OverloadInfo.new.1947 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Devel-OverloadInfo"
Thu Apr 29 22:46:52 2021 rev:4 rq:889345 version:0.007
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Devel-OverloadInfo/perl-Devel-OverloadInfo.changes
2018-02-09 15:47:46.442899924 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Devel-OverloadInfo.new.1947/perl-Devel-OverloadInfo.changes
2021-04-29 22:53:32.841851284 +0200
@@ -1,0 +2,12 @@
+Thu Apr 29 03:06:15 UTC 2021 - Tina M??ller <[email protected]>
+
+- updated to 0.007
+ see /usr/share/doc/packages/perl-Devel-OverloadInfo/Changes
+
+ 0.007 2021-04-28 16:18:49+01:00 Europe/London
+ - No changes since 0.006
+
+ 0.006 2021-04-22 18:55:28+01:00 Europe/London (TRIAL RELEASE)
+ - Remove dependency on Sub::Identify
+
+-------------------------------------------------------------------
Old:
----
Devel-OverloadInfo-0.005.tar.gz
New:
----
Devel-OverloadInfo-0.007.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Devel-OverloadInfo.spec ++++++
--- /var/tmp/diff_new_pack.N9QfUo/_old 2021-04-29 22:53:33.213849570 +0200
+++ /var/tmp/diff_new_pack.N9QfUo/_new 2021-04-29 22:53:33.213849570 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Devel-OverloadInfo
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2021 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,33 +12,31 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+%define cpan_name Devel-OverloadInfo
Name: perl-Devel-OverloadInfo
-Version: 0.005
+Version: 0.007
Release: 0
-%define cpan_name Devel-OverloadInfo
-Summary: Introspect Overloaded Operators
-License: Artistic-1.0 or GPL-1.0+
-Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Devel-OverloadInfo/
+Summary: Introspect overloaded operators
+License: Artistic-1.0 OR GPL-1.0-or-later
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/I/IL/ILMARI/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(MRO::Compat)
BuildRequires: perl(Package::Stash) >= 0.14
-BuildRequires: perl(Sub::Identify)
+BuildRequires: perl(Sub::Util) >= 1.40
BuildRequires: perl(Test::Fatal)
BuildRequires: perl(Test::More) >= 0.88
BuildRequires: perl(parent)
Requires: perl(MRO::Compat)
Requires: perl(Package::Stash) >= 0.14
-Requires: perl(Sub::Identify)
+Requires: perl(Sub::Util) >= 1.40
%{perl_requires}
%description
@@ -47,14 +45,14 @@
overloads are declared and where the code implementing them is.
%prep
-%setup -q -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{version}
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+%make_build
%check
-%{__make} test
+make test
%install
%perl_make_install
@@ -62,7 +60,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc Changes README
%license LICENSE
++++++ Devel-OverloadInfo-0.005.tar.gz -> Devel-OverloadInfo-0.007.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/Changes
new/Devel-OverloadInfo-0.007/Changes
--- old/Devel-OverloadInfo-0.005/Changes 2018-01-22 01:45:50.000000000
+0100
+++ new/Devel-OverloadInfo-0.007/Changes 2021-04-28 17:18:51.000000000
+0200
@@ -1,5 +1,11 @@
Revision history for Devel-OverloadInfo
+0.007 2021-04-28 16:18:49+01:00 Europe/London
+ - No changes since 0.006
+
+0.006 2021-04-22 18:55:28+01:00 Europe/London (TRIAL RELEASE)
+ - Remove dependency on Sub::Identify
+
0.005 2018-01-22 00:45:49+00:00 Europe/London
- Add overload_op_info() function for info about a single op
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/MANIFEST
new/Devel-OverloadInfo-0.007/MANIFEST
--- old/Devel-OverloadInfo-0.005/MANIFEST 2018-01-22 01:45:50.000000000
+0100
+++ new/Devel-OverloadInfo-0.007/MANIFEST 2021-04-28 17:18:51.000000000
+0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v6.009.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v6.017.
Changes
LICENSE
MANIFEST
@@ -7,6 +7,7 @@
Makefile.PL
README
dist.ini
+inc/ExtUtils/HasCompiler.pm
lib/Devel/OverloadInfo.pm
t/author-pod-spell.t
t/author-pod-syntax.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/META.json
new/Devel-OverloadInfo-0.007/META.json
--- old/Devel-OverloadInfo-0.005/META.json 2018-01-22 01:45:50.000000000
+0100
+++ new/Devel-OverloadInfo-0.007/META.json 2021-04-28 17:18:51.000000000
+0200
@@ -3,8 +3,8 @@
"author" : [
"Dagfinn Ilmari Manns\u00e5ker <[email protected]>"
],
- "dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 6.009, CPAN::Meta::Converter version
2.150010",
+ "dynamic_config" : 1,
+ "generated_by" : "Dist::Zilla version 6.017, CPAN::Meta::Converter version
2.150010",
"license" : [
"perl_5"
],
@@ -17,22 +17,24 @@
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0",
+ "Text::ParseWords" : "0",
"perl" : "5.006"
}
},
"develop" : {
"requires" : {
+ "ExtUtils::HasCompiler" : "0.014",
"Test::Pod" : "1.41",
"Test::Spelling" : "0.12"
}
},
"runtime" : {
"requires" : {
+ "B" : "0",
"Exporter" : "5.57",
"MRO::Compat" : "0",
"Package::Stash" : "0.14",
"Scalar::Util" : "0",
- "Sub::Identify" : "0",
"overload" : "0",
"perl" : "5.006",
"strict" : "0",
@@ -56,11 +58,13 @@
},
"repository" : {
"type" : "git",
- "url" : "git://github.com/ilmari/Devel-OverloadInfo.git",
+ "url" : "git://github.com/ilmari/Devel-OverloadInfo",
"web" : "https://github.com/ilmari/Devel-OverloadInfo";
}
},
- "version" : "0.005",
- "x_serialization_backend" : "Cpanel::JSON::XS version 3.0233"
+ "version" : "0.007",
+ "x_generated_by_perl" : "v5.33.9",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.26",
+ "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/META.yml
new/Devel-OverloadInfo-0.007/META.yml
--- old/Devel-OverloadInfo-0.005/META.yml 2018-01-22 01:45:50.000000000
+0100
+++ new/Devel-OverloadInfo-0.007/META.yml 2021-04-28 17:18:51.000000000
+0200
@@ -9,26 +9,29 @@
perl: '5.006'
configure_requires:
ExtUtils::MakeMaker: '0'
+ Text::ParseWords: '0'
perl: '5.006'
-dynamic_config: 0
-generated_by: 'Dist::Zilla version 6.009, CPAN::Meta::Converter version
2.150010'
+dynamic_config: 1
+generated_by: 'Dist::Zilla version 6.017, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: Devel-OverloadInfo
requires:
+ B: '0'
Exporter: '5.57'
MRO::Compat: '0'
Package::Stash: '0.14'
Scalar::Util: '0'
- Sub::Identify: '0'
overload: '0'
perl: '5.006'
strict: '0'
warnings: '0'
resources:
bugtracker:
http://rt.cpan.org/Public/Dist/Display.html?Name=Devel-OverloadInfo
- repository: git://github.com/ilmari/Devel-OverloadInfo.git
-version: '0.005'
-x_serialization_backend: 'YAML::Tiny version 1.70'
+ repository: git://github.com/ilmari/Devel-OverloadInfo
+version: '0.007'
+x_generated_by_perl: v5.33.9
+x_serialization_backend: 'YAML::Tiny version 1.73'
+x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/Makefile.PL
new/Devel-OverloadInfo-0.007/Makefile.PL
--- old/Devel-OverloadInfo-0.005/Makefile.PL 2018-01-22 01:45:50.000000000
+0100
+++ new/Devel-OverloadInfo-0.007/Makefile.PL 2021-04-28 17:18:51.000000000
+0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v6.009.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v6.017.
use strict;
use warnings;
@@ -10,18 +10,19 @@
"ABSTRACT" => "introspect overloaded operators",
"AUTHOR" => "Dagfinn Ilmari Manns\x{e5}ker <ilmari\@ilmari.org>",
"CONFIGURE_REQUIRES" => {
- "ExtUtils::MakeMaker" => 0
+ "ExtUtils::MakeMaker" => 0,
+ "Text::ParseWords" => 0
},
"DISTNAME" => "Devel-OverloadInfo",
"LICENSE" => "perl",
"MIN_PERL_VERSION" => "5.006",
"NAME" => "Devel::OverloadInfo",
"PREREQ_PM" => {
+ "B" => 0,
"Exporter" => "5.57",
"MRO::Compat" => 0,
"Package::Stash" => "0.14",
"Scalar::Util" => 0,
- "Sub::Identify" => 0,
"overload" => 0,
"strict" => 0,
"warnings" => 0
@@ -31,7 +32,7 @@
"Test::More" => "0.88",
"parent" => 0
},
- "VERSION" => "0.005",
+ "VERSION" => "0.007",
"test" => {
"TESTS" => "t/*.t"
}
@@ -39,11 +40,11 @@
my %FallbackPrereqs = (
+ "B" => 0,
"Exporter" => "5.57",
"MRO::Compat" => 0,
"Package::Stash" => "0.14",
"Scalar::Util" => 0,
- "Sub::Identify" => 0,
"Test::Fatal" => 0,
"Test::More" => "0.88",
"overload" => 0,
@@ -52,6 +53,12 @@
"warnings" => 0
);
+# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.039
+if (!want_pp() && can_xs()) {
+requires('Sub::Util', '1.40')
+}
+
+
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
delete $WriteMakefileArgs{TEST_REQUIRES};
@@ -63,3 +70,58 @@
unless eval { ExtUtils::MakeMaker->VERSION(6.52) };
WriteMakefile(%WriteMakefileArgs);
+
+# inserted by Dist::Zilla::Plugin::DynamicPrereqs 0.039
+sub _add_prereq {
+ my ($mm_key, $module, $version_or_range) = @_;
+ $version_or_range ||= 0;
+ warn "$module already exists in $mm_key (at version
$WriteMakefileArgs{$mm_key}{$module}) -- need to do a sane metamerge!"
+ if exists $WriteMakefileArgs{$mm_key}{$module}
+ and $WriteMakefileArgs{$mm_key}{$module} ne '0'
+ and $WriteMakefileArgs{$mm_key}{$module} ne $version_or_range;
+ warn "$module already exists in FallbackPrereqs (at version
$FallbackPrereqs{$module}) -- need to do a sane metamerge!"
+ if exists $FallbackPrereqs{$module} and $FallbackPrereqs{$module} ne '0'
+ and $FallbackPrereqs{$module} ne $version_or_range;
+ $WriteMakefileArgs{$mm_key}{$module} = $FallbackPrereqs{$module} =
$version_or_range;
+ return;
+}
+
+use lib 'inc';
+use ExtUtils::HasCompiler 0.014 'can_compile_loadable_object';
+{
+ my $can_xs;
+ sub can_xs {
+ return $can_xs if defined $can_xs;
+ $can_xs = can_compile_loadable_object(quiet => 1) ? 1 : 0;
+ }
+}
+
+{
+ my $parsed_args;
+ sub parse_args {
+ return $parsed_args if defined $parsed_args;
+ require ExtUtils::MakeMaker;
+ require Text::ParseWords;
+ ExtUtils::MakeMaker::parse_args(
+ my $tmp = {},
+ Text::ParseWords::shellwords($ENV{PERL_MM_OPT} || ''),
+ @ARGV,
+ );
+ $parsed_args = $tmp->{ARGS} || {};
+ }
+}
+
+sub requires { goto &runtime_requires }
+
+sub runtime_requires {
+ my ($module, $version_or_range) = @_;
+ _add_prereq(PREREQ_PM => $module, $version_or_range);
+}
+
+{
+ my $want_pp;
+ sub want_pp {
+ return $want_pp if defined $want_pp;
+ $want_pp = parse_args()->{PUREPERL_ONLY} ? 1 : 0
+ }
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/README
new/Devel-OverloadInfo-0.007/README
--- old/Devel-OverloadInfo-0.005/README 2018-01-22 01:45:50.000000000 +0100
+++ new/Devel-OverloadInfo-0.007/README 2021-04-28 17:18:51.000000000 +0200
@@ -1,7 +1,5 @@
-
-
This archive contains the distribution Devel-OverloadInfo,
-version 0.005:
+version 0.007:
introspect overloaded operators
@@ -11,5 +9,4 @@
the same terms as the Perl 5 programming language system itself.
-This README file was generated by Dist::Zilla::Plugin::Readme v6.009.
-
+This README file was generated by Dist::Zilla::Plugin::Readme v6.017.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/dist.ini
new/Devel-OverloadInfo-0.007/dist.ini
--- old/Devel-OverloadInfo-0.005/dist.ini 2018-01-22 01:45:50.000000000
+0100
+++ new/Devel-OverloadInfo-0.007/dist.ini 2021-04-28 17:18:51.000000000
+0200
@@ -17,6 +17,13 @@
[AutoPrereqs]
skip = \A(?:Base|Child)Class\z
+skip = \ASub::Util\z
+
+; authordep ExtUtils::HasCompiler = 0.023
+[DynamicPrereqs]
+-condition = !want_pp()
+-condition = can_xs()
+-body = requires('Sub::Util', '1.40')
[MetaJSON]
[MetaResources]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/inc/ExtUtils/HasCompiler.pm
new/Devel-OverloadInfo-0.007/inc/ExtUtils/HasCompiler.pm
--- old/Devel-OverloadInfo-0.005/inc/ExtUtils/HasCompiler.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Devel-OverloadInfo-0.007/inc/ExtUtils/HasCompiler.pm 2021-04-28
17:18:51.000000000 +0200
@@ -0,0 +1,308 @@
+package ExtUtils::HasCompiler;
+$ExtUtils::HasCompiler::VERSION = '0.023';
+use strict;
+use warnings;
+
+use base 'Exporter';
+our @EXPORT_OK = qw/can_compile_loadable_object can_compile_static_library
can_compile_extension/;
+our %EXPORT_TAGS = (all => \@EXPORT_OK);
+
+use Config;
+use Carp 'carp';
+use File::Basename 'basename';
+use File::Spec::Functions qw/catfile catdir rel2abs/;
+use File::Temp qw/tempdir tempfile/;
+
+my $tempdir = tempdir('HASCOMPILERXXXX', CLEANUP => 1, DIR => '.');
+
+my $loadable_object_format = <<'END';
+#define PERL_NO_GET_CONTEXT
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#ifndef PERL_UNUSED_VAR
+#define PERL_UNUSED_VAR(var)
+#endif
+
+XS(exported) {
+#ifdef dVAR
+ dVAR;
+#endif
+ dXSARGS;
+
+ PERL_UNUSED_VAR(cv); /* -W */
+ PERL_UNUSED_VAR(items); /* -W */
+
+ XSRETURN_IV(42);
+}
+
+#ifndef XS_EXTERNAL
+#define XS_EXTERNAL(foo) XS(foo)
+#endif
+
+/* we don't want to mess with .def files on mingw */
+#if defined(WIN32) && defined(__GNUC__)
+# define EXPORT __declspec(dllexport)
+#else
+# define EXPORT
+#endif
+
+EXPORT XS_EXTERNAL(boot_%s) {
+#ifdef dVAR
+ dVAR;
+#endif
+ dXSARGS;
+
+ PERL_UNUSED_VAR(cv); /* -W */
+ PERL_UNUSED_VAR(items); /* -W */
+
+ newXS("%s::exported", exported, __FILE__);
+}
+
+END
+
+my $counter = 1;
+my %prelinking = map { $_ => 1 } qw/MSWin32 VMS aix/;
+
+sub can_compile_loadable_object {
+ my %args = @_;
+
+ my $output = $args{output} || \*STDOUT;
+
+ my $config = $args{config} || 'ExtUtils::HasCompiler::Config';
+ return if not $config->get('usedl');
+
+ my ($source_handle, $source_name) = tempfile('TESTXXXX', DIR =>
$tempdir, SUFFIX => '.c', UNLINK => 1);
+ my $basename = basename($source_name, '.c');
+ my $abs_basename = catfile($tempdir, $basename);
+
+ my ($cc, $ccflags, $optimize, $cccdlflags, $ld, $ldflags, $lddlflags,
$libperl, $perllibs, $archlibexp, $_o, $dlext) = map { $config->get($_) } qw/cc
ccflags optimize cccdlflags ld ldflags lddlflags libperl perllibs archlibexp _o
dlext/;
+
+ my $incdir = catdir($archlibexp, 'CORE');
+ my $object_file = $abs_basename.$_o;
+ my $loadable_object = "$abs_basename.$dlext";
+
+ my @commands;
+ if ($^O eq 'MSWin32' && $cc =~ /^cl/) {
+ push @commands, qq{$cc $ccflags $cccdlflags $optimize /I
"$incdir" /c $source_name /Fo$object_file};
+ push @commands, qq{$ld $object_file $lddlflags $libperl
$perllibs /out:$loadable_object /def:$abs_basename.def /pdb:$abs_basename.pdb};
+ }
+ elsif ($^O eq 'VMS') {
+ # Mksymlists is only the beginning of the story.
+ open my $opt_fh, '>>', "$abs_basename.opt" or do { carp
"Couldn't append to '$abs_basename.opt'"; return };
+ print $opt_fh "PerlShr/Share\n";
+ close $opt_fh;
+
+ my $incdirs = $ccflags =~ s{ /inc[^=]+ (?:=)+ (?:\()? (
[^\/\)]* ) }{}xi ? "$1,$incdir" : $incdir;
+ push @commands, qq{$cc $ccflags $optimize /include=($incdirs)
$cccdlflags $source_name /obj=$object_file};
+ push @commands, qq{$ld $ldflags $lddlflags=$loadable_object
$object_file,$abs_basename.opt/OPTIONS,${incdir}perlshr_attr.opt/OPTIONS'
$perllibs};
+ }
+ else {
+ my @extra;
+ my $inc = qq{"-I$incdir"};
+ if ($^O eq 'MSWin32') {
+ my $lib = '-l' . ($libperl =~ /lib([^.]+)\./)[0];
+ push @extra, "$abs_basename.def", $lib, $perllibs;
+ }
+ elsif ($^O =~ /^(cygwin|msys)$/) {
+ push @extra, catfile($incdir,
$config->get('useshrplib') ? 'libperl.dll.a' : 'libperl.a');
+ }
+ elsif ($^O eq 'aix') {
+ $lddlflags =~ s/\Q$(BASEEXT)\E/$abs_basename/;
+ $lddlflags =~ s/\Q$(PERL_INC)\E/$incdir/;
+ }
+ elsif ($^O eq 'android') {
+ push @extra, qq{"-L$incdir"}, '-lperl', $perllibs;
+ }
+ elsif ($^O eq 'darwin' && $config->get('perlpath') eq
'/usr/bin/perl' && ($config->get('osvers') =~ /(\d+)/)[0] >= 18) {
+ $inc = qq{-iwithsysroot "$incdir"};
+ }
+ push @commands, qq{$cc $ccflags $optimize $inc $cccdlflags -c
$source_name -o $object_file};
+ push @commands, qq{$ld $object_file -o $loadable_object
$lddlflags @extra};
+ }
+
+ if ($prelinking{$^O}) {
+ require ExtUtils::Mksymlists;
+ ExtUtils::Mksymlists::Mksymlists(NAME => $basename, FILE =>
$abs_basename, IMPORTS => {});
+ }
+
+ my $shortname = '_Loadable' . $counter++;
+ my $package = "ExtUtils::HasCompiler::$shortname";
+ printf $source_handle $loadable_object_format, $basename, $package or
do { carp "Couldn't write to $source_name: $!"; return };
+ close $source_handle or do { carp "Couldn't close $source_name: $!";
return };
+
+ for my $command (@commands) {
+ print $output "$command\n" if not $args{quiet};
+ system $command and do { carp "Couldn't execute $command: $!";
return };
+ }
+
+ # Skip loading when cross-compiling
+ return 1 if exists $args{skip_load} ? $args{skip_load} :
$config->get('usecrosscompile');
+
+ require DynaLoader;
+ local @DynaLoader::dl_require_symbols = "boot_$basename";
+ my $handle = DynaLoader::dl_load_file(rel2abs($loadable_object), 0);
+ if ($handle) {
+ my $symbol = DynaLoader::dl_find_symbol($handle,
"boot_$basename") or do { carp "Couldn't find boot symbol for $basename";
return };
+ my $compilet =
DynaLoader::dl_install_xsub('__ANON__::__ANON__', $symbol, $source_name);
+ my $ret = eval { $compilet->(); $package->exported } or carp $@;
+ delete $ExtUtils::HasCompiler::{"$shortname\::"};
+ eval { DynaLoader::dl_unload_file($handle) } or carp $@;
+ return defined $ret && $ret == 42;
+ }
+ else {
+ carp "Couldn't load $loadable_object: " .
DynaLoader::dl_error();
+ return;
+ }
+}
+
+my %static_unsupported_on = map { $_ => 1 } qw/VMS aix MSWin32 cygwin/;
+sub can_compile_static_library {
+ my %args = @_;
+
+ my $output = $args{output} || \*STDOUT;
+
+ my $config = $args{config} || 'ExtUtils::HasCompiler::Config';
+ return if $config->get('useshrplib') eq 'true';
+
+ my ($source_handle, $source_name) = tempfile('TESTXXXX', DIR =>
$tempdir, SUFFIX => '.c', UNLINK => 1);
+ my $basename = basename($source_name, '.c');
+ my $abs_basename = catfile($tempdir, $basename);
+
+ my ($cc, $ccflags, $optimize, $ar, $full_ar, $ranlib, $archlibexp, $_o,
$lib_ext) = map { $config->get($_) } qw/cc ccflags optimize ar full_ar ranlib
archlibexp _o lib_ext/;
+ my $incdir = catdir($archlibexp, 'CORE');
+ my $object_file = "$abs_basename$_o";
+ my $static_library = $abs_basename.$lib_ext;
+
+ my @commands;
+ if ($static_unsupported_on{$^O}) {
+ return;
+ }
+ else {
+ my $my_ar = length $full_ar ? $full_ar : $ar;
+ push @commands, qq{$cc $ccflags $optimize "-I$incdir" -c
$source_name -o $object_file};
+ push @commands, qq{$my_ar cr $static_library $object_file};
+ push @commands, qq{$ranlib $static_library} if $ranlib ne ':';
+ }
+
+ my $shortname = '_Loadable' . $counter++;
+ my $package = "ExtUtils::HasCompiler::$shortname";
+ printf $source_handle $loadable_object_format, $basename, $package or
do { carp "Couldn't write to $source_name: $!"; return };
+ close $source_handle or do { carp "Couldn't close $source_name: $!";
return };
+
+ for my $command (@commands) {
+ print $output "$command\n" if not $args{quiet};
+ system $command and do { carp "Couldn't execute $command: $!";
return };
+ }
+ return 1;
+}
+
+sub can_compile_extension {
+ my %args = @_;
+ $args{config} ||= 'ExtUtils::HasCompiler::Config';
+ my $linktype = $args{linktype} || ($args{config}->get('usedl') ?
'dynamic' : 'static');
+ return $linktype eq 'static' ? can_compile_static_library(%args) :
can_compile_loadable_object(%args);
+}
+
+sub ExtUtils::HasCompiler::Config::get {
+ my (undef, $key) = @_;
+ return $ENV{uc $key} || $Config{$key};
+}
+
+1;
+
+# ABSTRACT: Check for the presence of a compiler
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+ExtUtils::HasCompiler - Check for the presence of a compiler
+
+=head1 VERSION
+
+version 0.023
+
+=head1 SYNOPSIS
+
+ use ExtUtils::HasCompiler 'can_compile_extension';
+ if (can_compile_extension()) {
+ ...
+ }
+ else {
+ ...
+ }
+
+=head1 DESCRIPTION
+
+This module tries to check if the current system is capable of compiling,
linking and loading an XS module.
+
+B<Notice>: this is an early release, interface stability isn't guaranteed yet.
+
+=head1 FUNCTIONS
+
+=head2 can_compile_loadable_object(%opts)
+
+This checks if the system can compile, link and load a perl loadable object.
It may take the following options:
+
+=over 4
+
+=item * quiet
+
+Do not output the executed compilation commands.
+
+=item * config
+
+An L<ExtUtils::Config|ExtUtils::Config> (compatible) object for configuration.
+
+=item * skip_load
+
+This causes can_compile_loadable_object to not try to load the generated
object. This defaults to true on a cross-compiling perl.
+
+=back
+
+=head2 can_compile_static_library(%opts)
+
+This checks if the system can compile and link a perl static library. It does
not check it it can compile a new perl with it. It may take the following
options:
+
+=over 4
+
+=item * quiet
+
+Do not output the executed compilation commands.
+
+=item * config
+
+An L<ExtUtils::Config|ExtUtils::Config> (compatible) object for configuration.
+
+=back
+
+=head2 can_compile_extension(%opts)
+
+This will call either C<can_compile_loadable_object>, or
C<can_compile_static_library>, depending on which is the default on your
configuration. In addition to the arguments listed above, it can take one more
optional argument:
+
+=over 4
+
+=item * linktype
+
+This will force the linktype to be either static or dynamic. Dynamic
compilation on a static perl won't work, but static libraries can be viable on
a dynamic perl.
+
+=back
+
+=head1 AUTHOR
+
+Leon Timmermans <[email protected]>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2014 by Leon Timmermans.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Devel-OverloadInfo-0.005/lib/Devel/OverloadInfo.pm
new/Devel-OverloadInfo-0.007/lib/Devel/OverloadInfo.pm
--- old/Devel-OverloadInfo-0.005/lib/Devel/OverloadInfo.pm 2018-01-22
01:45:50.000000000 +0100
+++ new/Devel-OverloadInfo-0.007/lib/Devel/OverloadInfo.pm 2021-04-28
17:18:51.000000000 +0200
@@ -1,5 +1,5 @@
package Devel::OverloadInfo;
-$Devel::OverloadInfo::VERSION = '0.005';
+$Devel::OverloadInfo::VERSION = '0.007';
# ABSTRACT: introspect overloaded operators
#pod =head1 DESCRIPTION
@@ -15,10 +15,33 @@
use warnings;
use overload ();
use Scalar::Util qw(blessed);
-use Sub::Identify qw(sub_fullname);
use Package::Stash 0.14;
use MRO::Compat;
+BEGIN {
+ if (eval { require Sub::Util } && defined &Sub::Util::subname) {
+ *subname = \&Sub::Util::subname;
+ }
+ else {
+ require B;
+ *subname = sub {
+ my ($coderef) = @_;
+ die 'Not a subroutine reference'
+ unless ref $coderef;
+ my $cv = B::svref_2object($coderef);
+ die 'Not a subroutine reference'
+ unless $cv->isa('B::CV');
+ my $gv = $cv->GV;
+ return undef
+ if $gv->isa('B::SPECIAL');
+ my $stash = $gv->STASH;
+ my $package = $stash->isa('B::SPECIAL') ? '__ANON__' :
$stash->NAME;
+ return $package . '::' . $gv->NAME;
+ };
+ }
+}
+
+
use Exporter 5.57 qw(import);
our @EXPORT_OK = qw(overload_info overload_op_info is_overloaded);
@@ -85,8 +108,7 @@
#pod
#pod =item code_name
#pod
-#pod The name of the function implementing the overloaded operator, as
-#pod returned by C<sub_fullname> in L<Sub::Identify>.
+#pod The fully qualified name of the function implementing the overloaded
operator.
#pod
#pod =item method_name (optional)
#pod
@@ -135,7 +157,7 @@
} else {
$info->{code} = $func;
}
- $info->{code_name} = sub_fullname($info->{code})
+ $info->{code_name} = subname($info->{code})
if exists $info->{code};
return $info;
@@ -189,7 +211,7 @@
=head1 VERSION
-version 0.005
+version 0.007
=head1 DESCRIPTION
@@ -238,8 +260,7 @@
=item code_name
-The name of the function implementing the overloaded operator, as
-returned by C<sub_fullname> in L<Sub::Identify>.
+The fully qualified name of the function implementing the overloaded operator.
=item method_name (optional)
