diff -Nru libdevel-globaldestruction-perl-0.13/Changes libdevel-globaldestruction-perl-0.14/Changes --- libdevel-globaldestruction-perl-0.13/Changes 2014-08-16 00:33:48.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/Changes 2016-10-31 22:25:31.000000000 +0000 @@ -1,3 +1,8 @@ +Revision history for Devel-GlobalDestruction + +0.14 - 2016-10-31 + - stop relying on . being in @INC + - switch to ExtUtils::HasCompiler to detect presence of a compiler 0.13 - 2014-08-16 * include README diff -Nru libdevel-globaldestruction-perl-0.13/debian/changelog libdevel-globaldestruction-perl-0.14/debian/changelog --- libdevel-globaldestruction-perl-0.13/debian/changelog 2014-08-26 10:16:23.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/debian/changelog 2021-03-20 18:30:45.000000000 +0000 @@ -1,3 +1,28 @@ +libdevel-globaldestruction-perl (0.14-1~16.04.sav0) xenial; urgency=medium + + * Backport to Xenial + + -- Rob Savoury Sat, 20 Mar 2021 11:30:45 -0700 + +libdevel-globaldestruction-perl (0.14-1) unstable; urgency=medium + + * Team upload. + + [ Salvatore Bonaccorso ] + * debian/control: Use HTTPS transport protocol for Vcs-Git URI + + [ gregor herrmann ] + * debian/copyright: change Copyright-Format 1.0 URL to HTTPS. + * Remove Jonathan Yu from Uploaders. Thanks for your work! + + [ Angel Abad ] + * Import upstream version 0.14 + * debian/copyright: Update years. + * Declare compliance with Debian Policy 3.9.8. + * Bump debhelper compatibility level to 9. + + -- Angel Abad Tue, 01 Nov 2016 11:22:44 +0100 + libdevel-globaldestruction-perl (0.13-1) unstable; urgency=medium [ gregor herrmann ] diff -Nru libdevel-globaldestruction-perl-0.13/debian/compat libdevel-globaldestruction-perl-0.14/debian/compat --- libdevel-globaldestruction-perl-0.13/debian/compat 2013-11-03 11:06:21.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/debian/compat 2016-11-01 10:21:59.000000000 +0000 @@ -1 +1 @@ -8 +9 diff -Nru libdevel-globaldestruction-perl-0.13/debian/control libdevel-globaldestruction-perl-0.14/debian/control --- libdevel-globaldestruction-perl-0.13/debian/control 2014-08-26 10:13:56.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/debian/control 2016-11-01 10:20:05.000000000 +0000 @@ -1,25 +1,27 @@ Source: libdevel-globaldestruction-perl -Section: perl -Priority: optional Maintainer: Debian Perl Group Uploaders: Krzysztof Krzyżaniak (eloy) , - Jonathan Yu , - Dominic Hargreaves , - Alessandro Ghedini , - Angel Abad + Dominic Hargreaves , + Alessandro Ghedini , + Angel Abad +Section: perl +Testsuite: autopkgtest-pkg-perl +Priority: optional Build-Depends: debhelper (>= 9.20120312) Build-Depends-Indep: libsub-exporter-progressive-perl, - perl (>= 5.14.0) -Standards-Version: 3.9.5 + perl (>= 5.14.0) +Standards-Version: 3.9.8 Vcs-Browser: https://anonscm.debian.org/cgit/pkg-perl/packages/libdevel-globaldestruction-perl.git -Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libdevel-globaldestruction-perl.git +Vcs-Git: https://anonscm.debian.org/git/pkg-perl/packages/libdevel-globaldestruction-perl.git Homepage: https://metacpan.org/release/Devel-GlobalDestruction Package: libdevel-globaldestruction-perl Architecture: all -Depends: ${misc:Depends}, ${perl:Depends}, ${shlibs:Depends}, - libsub-exporter-progressive-perl, - perl (>= 5.14.0) +Depends: ${misc:Depends}, + ${perl:Depends}, + ${shlibs:Depends}, + libsub-exporter-progressive-perl, + perl (>= 5.14.0) Description: module to expose the flag that marks global destruction Devel::GlobalDestruction is a Perl module that exposes the PL_dirty flag to Perl as a subroutine named in_global_destruction. It is useful when diff -Nru libdevel-globaldestruction-perl-0.13/debian/copyright libdevel-globaldestruction-perl-0.14/debian/copyright --- libdevel-globaldestruction-perl-0.13/debian/copyright 2014-08-26 10:15:33.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/debian/copyright 2016-11-01 10:18:58.000000000 +0000 @@ -1,4 +1,4 @@ -Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ +Format: https://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Source: https://metacpan.org/release/Devel-GlobalDestruction Upstream-Contact: Florian Ragwitz Upstream-Name: Devel-GlobalDestruction @@ -14,7 +14,7 @@ 2011, Dominic Hargreaves 2012-2014, gregor herrmann 2012, Alessandro Ghedini - 2013-2014, Angel Abad + 2013-2016, Angel Abad License: Artistic or GPL-1+ License: Artistic diff -Nru libdevel-globaldestruction-perl-0.13/debian/upstream/metadata libdevel-globaldestruction-perl-0.14/debian/upstream/metadata --- libdevel-globaldestruction-perl-0.13/debian/upstream/metadata 1970-01-01 00:00:00.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/debian/upstream/metadata 2016-11-01 10:17:20.000000000 +0000 @@ -0,0 +1,8 @@ +--- +Archive: CPAN +Bug-Database: https://rt.cpan.org/Public/Dist/Display.html?Name=Devel-GlobalDestruction +Bug-Submit: bug-Devel-GlobalDestruction@rt.cpan.org +Contact: Yuval Kogman +Name: Devel-GlobalDestruction +Repository: git://git.shadowcat.co.uk/p5sagit/Devel-GlobalDestruction.git +Repository-Browse: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/Devel-GlobalDestruction.git diff -Nru libdevel-globaldestruction-perl-0.13/inc/ExtUtils/HasCompiler.pm libdevel-globaldestruction-perl-0.14/inc/ExtUtils/HasCompiler.pm --- libdevel-globaldestruction-perl-0.13/inc/ExtUtils/HasCompiler.pm 1970-01-01 00:00:00.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/inc/ExtUtils/HasCompiler.pm 2016-10-15 00:34:07.000000000 +0000 @@ -0,0 +1,217 @@ +package ExtUtils::HasCompiler; +$ExtUtils::HasCompiler::VERSION = '0.016'; +use strict; +use warnings; + +use base 'Exporter'; +our @EXPORT_OK = qw/can_compile_loadable_object/; +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 $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 }; + + my $abs_basename = catfile($tempdir, $basename); + my $object_file = $abs_basename . $config->get('_o'); + my $loadable_object = $abs_basename . '.' . $config->get('dlext'); + my $incdir = catdir($config->get('archlibexp'), 'CORE'); + + my ($cc, $ccflags, $optimize, $cccdlflags, $ld, $ldflags, $lddlflags, $libperl, $perllibs) = map { $config->get($_) } qw/cc ccflags optimize cccdlflags ld ldflags lddlflags libperl perllibs/; + + if ($prelinking{$^O}) { + require ExtUtils::Mksymlists; + ExtUtils::Mksymlists::Mksymlists(NAME => $basename, FILE => $abs_basename, IMPORTS => {}); + } + 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; + if ($^O eq 'MSWin32') { + my $lib = '-l' . ($libperl =~ /lib([^.]+)\./)[0]; + push @extra, "$abs_basename.def", $lib, $perllibs; + } + elsif ($^O eq 'cygwin') { + 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; + } + push @commands, qq{$cc $ccflags $optimize "-I$incdir" $cccdlflags -c $source_name -o $object_file}; + push @commands, qq{$ld $optimize $object_file -o $loadable_object $lddlflags @extra}; + } + + 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; + } +} + +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.016 + +=head1 DESCRIPTION + +This module tries to check if the current system is capable of compiling, linking and loading an XS module. + +B: 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 (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 + +=head1 AUTHOR + +Leon Timmermans + +=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 -Nru libdevel-globaldestruction-perl-0.13/lib/Devel/GlobalDestruction.pm libdevel-globaldestruction-perl-0.14/lib/Devel/GlobalDestruction.pm --- libdevel-globaldestruction-perl-0.13/lib/Devel/GlobalDestruction.pm 2014-08-16 00:33:18.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/lib/Devel/GlobalDestruction.pm 2016-10-31 22:25:18.000000000 +0000 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '0.13'; +our $VERSION = '0.14'; use Sub::Exporter::Progressive -setup => { exports => [ qw(in_global_destruction) ], diff -Nru libdevel-globaldestruction-perl-0.13/maint/Makefile.PL.include libdevel-globaldestruction-perl-0.14/maint/Makefile.PL.include --- libdevel-globaldestruction-perl-0.13/maint/Makefile.PL.include 2014-08-12 07:00:04.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/maint/Makefile.PL.include 2015-10-27 18:07:09.000000000 +0000 @@ -11,7 +11,9 @@ 'Peter Rabbitson ', 'Arthur Axel \'fREW\' Schmidt ', 'Elizabeth Mattijsen ', - 'Greham Knop ', + 'Graham Knop ', ]; +manifest_include inc => '.pm'; + 1; diff -Nru libdevel-globaldestruction-perl-0.13/Makefile.PL libdevel-globaldestruction-perl-0.14/Makefile.PL --- libdevel-globaldestruction-perl-0.13/Makefile.PL 2014-08-12 07:11:27.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/Makefile.PL 2016-10-31 22:24:09.000000000 +0000 @@ -1,6 +1,9 @@ use strict; use warnings FATAL => 'all'; use 5.006; +use lib 'inc'; +use ExtUtils::HasCompiler qw(can_compile_loadable_object); +use ExtUtils::MakeMaker; my %META = ( name => 'Devel-GlobalDestruction', @@ -8,7 +11,6 @@ prereqs => { configure => { requires => { 'ExtUtils::MakeMaker' => 0, - 'ExtUtils::CBuilder' => 0.27, } }, runtime => { requires => { @@ -37,29 +39,14 @@ my %MM_ARGS = ( PREREQ_PM => { - ( (defined ${^GLOBAL_PHASE} or parse_args()->{PUREPERL_ONLY} or !can_xs() ) + ( (defined ${^GLOBAL_PHASE} or parse_args()->{PUREPERL_ONLY} + or !can_compile_loadable_object(quiet => 1) ) ? () : ('Devel::GlobalDestruction::XS' => 0) ), }, ); -use ExtUtils::MakeMaker; -BEGIN { if ( $^O eq 'cygwin' ) { - require ExtUtils::MM_Cygwin; - require ExtUtils::MM_Win32; - if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) { - *ExtUtils::MM_Cygwin::maybe_command = sub { - my ($self, $file) = @_; - if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) { - ExtUtils::MM_Win32->maybe_command($file); - } else { - ExtUtils::MM_Unix->maybe_command($file); - } - } - } -}} - use Text::ParseWords; sub parse_args { @@ -87,108 +74,9 @@ }; } -# can we locate a (the) C compiler -sub can_cc { - my @chunks = split(/ /, $Config::Config{cc}) or return; - - # $Config{cc} may contain args; try to find out the program part - while (@chunks) { - return can_run("@chunks") || (pop(@chunks), next); - } - - return; -} - -# check if we can run some command -sub can_run { - my ($cmd) = @_; - - return $cmd if -x $cmd; - if (my $found_cmd = MM->maybe_command($cmd)) { - return $found_cmd; - } - - require File::Spec; - for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { - next if $dir eq ''; - my $abs = File::Spec->catfile($dir, $cmd); - return $abs if (-x $abs or $abs = MM->maybe_command($abs)); - } - - return; -} - -# Can our C compiler environment build XS files -sub can_xs { - # Do we have the configure_requires checker? - local $@; - eval "require ExtUtils::CBuilder; ExtUtils::CBuilder->VERSION(0.27)"; - if ( $@ ) { - # They don't obey configure_requires, so it is - # someone old and delicate. Try to avoid hurting - # them by falling back to an older simpler test. - return can_cc(); - } - - # Do we have a working C compiler - my $builder = ExtUtils::CBuilder->new( - quiet => 1, - ); - unless ( $builder->have_compiler ) { - # No working C compiler - return 0; - } - - # Write a C file representative of what XS becomes - require File::Temp; - my ( $FH, $tmpfile ) = File::Temp::tempfile( - "compilexs-XXXXX", - SUFFIX => '.c', - ); - binmode $FH; - print $FH <<'END_C'; -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -int main(int argc, char **argv) { - return 0; -} - -int boot_sanexs() { - return 1; -} - -END_C - close $FH; - - # Can the C compiler access the same headers XS does - my @libs = (); - my $object = undef; - eval { - local $^W = 0; - $object = $builder->compile( - source => $tmpfile, - ); - @libs = $builder->link( - objects => $object, - module_name => 'sanexs', - ); - }; - my $result = $@ ? 0 : 1; - - # Clean up all the build files - foreach ( $tmpfile, $object, @libs ) { - next unless defined $_; - 1 while unlink; - } - - return $result; -} - -############################################################################## +## BOILERPLATE ############################################################### require ExtUtils::MakeMaker; -(do 'maint/Makefile.PL.include' or die $@) unless -f 'META.yml'; +(do './maint/Makefile.PL.include' or die $@) unless -f 'META.yml'; # have to do this since old EUMM dev releases miss the eval $VERSION line my $eumm_version = eval $ExtUtils::MakeMaker::VERSION; @@ -197,8 +85,10 @@ ($MM_ARGS{NAME} = $META{name}) =~ s/-/::/g; ($MM_ARGS{VERSION_FROM} = "lib/$MM_ARGS{NAME}.pm") =~ s{::}{/}g; -$MM_ARGS{LICENSE} = $META{license} - if $eumm_version >= 6.30; +$META{license} = [ $META{license} ] + if $META{license} && !ref $META{license}; +$MM_ARGS{LICENSE} = $META{license}[0] + if $META{license} && $eumm_version >= 6.30; $MM_ARGS{NO_MYMETA} = 1 if $mymeta_broken; $MM_ARGS{META_ADD} = { 'meta-spec' => { version => 2 }, %META } @@ -225,3 +115,4 @@ if $eumm_version < 6.51_03; ExtUtils::MakeMaker::WriteMakefile(%MM_ARGS); +## END BOILERPLATE ########################################################### diff -Nru libdevel-globaldestruction-perl-0.13/MANIFEST libdevel-globaldestruction-perl-0.14/MANIFEST --- libdevel-globaldestruction-perl-0.13/MANIFEST 2014-08-16 00:34:00.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/MANIFEST 2016-10-31 22:25:47.000000000 +0000 @@ -1,4 +1,5 @@ Changes +inc/ExtUtils/HasCompiler.pm lib/Devel/GlobalDestruction.pm maint/Makefile.PL.include Makefile.PL diff -Nru libdevel-globaldestruction-perl-0.13/META.json libdevel-globaldestruction-perl-0.14/META.json --- libdevel-globaldestruction-perl-0.13/META.json 2014-08-16 00:34:00.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/META.json 2016-10-31 22:25:47.000000000 +0000 @@ -7,10 +7,10 @@ "Peter Rabbitson ", "Arthur Axel 'fREW' Schmidt ", "Elizabeth Mattijsen ", - "Greham Knop " + "Graham Knop " ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520", + "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005", "license" : [ "perl_5" ], @@ -29,7 +29,6 @@ "build" : {}, "configure" : { "requires" : { - "ExtUtils::CBuilder" : "0.27", "ExtUtils::MakeMaker" : "0" } }, @@ -57,5 +56,6 @@ "web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/Devel-GlobalDestruction.git" } }, - "version" : "0.13" + "version" : "0.14", + "x_serialization_backend" : "JSON::PP version 2.27300" } diff -Nru libdevel-globaldestruction-perl-0.13/META.yml libdevel-globaldestruction-perl-0.14/META.yml --- libdevel-globaldestruction-perl-0.13/META.yml 2014-08-16 00:34:00.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/META.yml 2016-10-31 22:25:47.000000000 +0000 @@ -7,13 +7,12 @@ - 'Peter Rabbitson ' - "Arthur Axel 'fREW' Schmidt " - 'Elizabeth Mattijsen ' - - 'Greham Knop ' + - 'Graham Knop ' build_requires: {} configure_requires: - ExtUtils::CBuilder: '0.27' ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.141520' +generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -31,4 +30,5 @@ homepage: https://metacpan.org/release/Devel-GlobalDestruction license: http://dev.perl.org/licenses/ repository: git://git.shadowcat.co.uk/p5sagit/Devel-GlobalDestruction.git -version: '0.13' +version: '0.14' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -Nru libdevel-globaldestruction-perl-0.13/t/02_thread.t libdevel-globaldestruction-perl-0.14/t/02_thread.t --- libdevel-globaldestruction-perl-0.13/t/02_thread.t 2014-08-04 08:26:30.000000000 +0000 +++ libdevel-globaldestruction-perl-0.14/t/02_thread.t 2016-10-16 11:16:19.000000000 +0000 @@ -41,8 +41,8 @@ die "Argument passing failed!"; } - delete $INC{'t/01_basic.t'}; - do 't/01_basic.t'; + delete $INC{'./t/01_basic.t'}; + do './t/01_basic.t'; 1; }