Hello community, here is the log from the commit of package perl-App-perlbrew for openSUSE:Factory checked in at 2016-11-18 22:03:24 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-App-perlbrew (Old) and /work/SRC/openSUSE:Factory/.perl-App-perlbrew.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-App-perlbrew" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-App-perlbrew/perl-App-perlbrew.changes 2016-06-25 02:24:08.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-App-perlbrew.new/perl-App-perlbrew.changes 2016-11-18 22:03:25.000000000 +0100 @@ -1,0 +2,12 @@ +Sun Nov 13 06:03:46 UTC 2016 - [email protected] + +- updated to 0.77 + see /usr/share/doc/packages/perl-App-perlbrew/Changes + + 0.77: # 2016-11-12T06:42:45+0100 + - Thanks to our contributors: Dennis Kaarsemaker, Roel Harbers + - The "uninstall" command now requires confirmation. + - Fix bug with csh when PATH entries contain spaces + - Accommodate git commit abbrivation changes on perl5.git.perl.org. See GH #524 https://github.com/gugod/App-perlbrew/pull/524 + +------------------------------------------------------------------- Old: ---- App-perlbrew-0.76.tar.gz New: ---- App-perlbrew-0.77.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-App-perlbrew.spec ++++++ --- /var/tmp/diff_new_pack.rQTY1w/_old 2016-11-18 22:03:26.000000000 +0100 +++ /var/tmp/diff_new_pack.rQTY1w/_new 2016-11-18 22:03:26.000000000 +0100 @@ -17,7 +17,7 @@ Name: perl-App-perlbrew -Version: 0.76 +Version: 0.77 Release: 0 %define cpan_name App-perlbrew Summary: Manage perl installations in your C<$HOME> ++++++ App-perlbrew-0.76.tar.gz -> App-perlbrew-0.77.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/Changes new/App-perlbrew-0.77/Changes --- old/App-perlbrew-0.76/Changes 2016-06-21 23:05:27.000000000 +0200 +++ new/App-perlbrew-0.77/Changes 2016-11-12 07:21:01.000000000 +0100 @@ -1,3 +1,9 @@ +0.77: # 2016-11-12T06:42:45+0100 +- Thanks to our contributors: Dennis Kaarsemaker, Roel Harbers +- The "uninstall" command now requires confirmation. +- Fix bug with csh when PATH entries contain spaces +- Accommodate git commit abbrivation changes on perl5.git.perl.org. See GH #524 https://github.com/gugod/App-perlbrew/pull/524 + 0.76: # 2016-06-21T23:02:44+0200 - Start supporting cperl installation. - cperl releases are sourced from: https://github.com/perl11/cperl/releases diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/META.yml new/App-perlbrew-0.77/META.yml --- old/App-perlbrew-0.76/META.yml 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/META.yml 2016-11-12 07:10:21.000000000 +0100 @@ -17,7 +17,7 @@ ExtUtils::MakeMaker: 6.59 distribution_type: module dynamic_config: 1 -generated_by: 'Module::Install version 1.16' +generated_by: 'Module::Install version 1.17' license: mit meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -39,4 +39,4 @@ resources: license: http://opensource.org/licenses/mit-license.php repository: git://github.com/gugod/App-perlbrew.git -version: '0.76' +version: '0.77' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Base.pm new/App-perlbrew-0.77/inc/Module/Install/Base.pm --- old/App-perlbrew-0.76/inc/Module/Install/Base.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Base.pm 2016-11-12 07:10:21.000000000 +0100 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Can.pm new/App-perlbrew-0.77/inc/Module/Install/Can.pm --- old/App-perlbrew-0.76/inc/Module/Install/Can.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Can.pm 2016-11-12 07:10:21.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -121,6 +121,15 @@ # Can we locate a (the) C compiler sub can_cc { my $self = shift; + + if ($^O eq 'VMS') { + require ExtUtils::CBuilder; + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + return $builder->have_compiler; + } + my @chunks = split(/ /, $Config::Config{cc}) or return; # $Config{cc} may contain args; try to find out the program part @@ -151,4 +160,4 @@ __END__ -#line 236 +#line 245 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Fetch.pm new/App-perlbrew-0.77/inc/Module/Install/Fetch.pm --- old/App-perlbrew-0.76/inc/Module/Install/Fetch.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Fetch.pm 2016-11-12 07:10:21.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Makefile.pm new/App-perlbrew-0.77/inc/Module/Install/Makefile.pm --- old/App-perlbrew-0.76/inc/Module/Install/Makefile.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Makefile.pm 2016-11-12 07:10:21.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Metadata.pm new/App-perlbrew-0.77/inc/Module/Install/Metadata.pm --- old/App-perlbrew-0.76/inc/Module/Install/Metadata.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Metadata.pm 2016-11-12 07:10:21.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Scripts.pm new/App-perlbrew-0.77/inc/Module/Install/Scripts.pm --- old/App-perlbrew-0.76/inc/Module/Install/Scripts.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Scripts.pm 2016-11-12 07:10:21.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/Win32.pm new/App-perlbrew-0.77/inc/Module/Install/Win32.pm --- old/App-perlbrew-0.76/inc/Module/Install/Win32.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/Win32.pm 2016-11-12 07:10:21.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install/WriteAll.pm new/App-perlbrew-0.77/inc/Module/Install/WriteAll.pm --- old/App-perlbrew-0.76/inc/Module/Install/WriteAll.pm 2016-06-21 23:06:00.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install/WriteAll.pm 2016-11-12 07:10:21.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.16'; + $VERSION = '1.17'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/inc/Module/Install.pm new/App-perlbrew-0.77/inc/Module/Install.pm --- old/App-perlbrew-0.76/inc/Module/Install.pm 2016-06-21 23:05:59.000000000 +0200 +++ new/App-perlbrew-0.77/inc/Module/Install.pm 2016-11-12 07:10:21.000000000 +0100 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.16'; + $VERSION = '1.17'; # Storage for the pseudo-singleton $MAIN = undef; @@ -244,6 +244,8 @@ } return $args{_self} if $args{_self}; + $base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS'; + $args{dispatch} ||= 'Admin'; $args{prefix} ||= 'inc'; $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author'); @@ -322,7 +324,7 @@ my ($self, $path) = @_; my @found; - File::Find::find( sub { + File::Find::find( {no_chdir => 1, wanted => sub { my $file = $File::Find::name; return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is; my $subpath = $1; @@ -336,7 +338,7 @@ # correctly. Otherwise, root through the file to locate the case-preserved # version of the package name. if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { - my $content = Module::Install::_read($subpath . '.pm'); + my $content = Module::Install::_read($File::Find::name); my $in_pod = 0; foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; @@ -351,7 +353,7 @@ } push @found, [ $file, $pkg ]; - }, $path ) if -d $path; + }}, $path ) if -d $path; @found; } @@ -373,8 +375,6 @@ return $call; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _read { local *FH; open( FH, '<', $_[0] ) or die "open($_[0]): $!"; @@ -383,16 +383,6 @@ close FH or die "close($_[0]): $!"; return $string; } -END_NEW -sub _read { - local *FH; - open( FH, "< $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - my $string = do { local $/; <FH> }; - close FH or die "close($_[0]): $!"; - return $string; -} -END_OLD sub _readperl { my $string = Module::Install::_read($_[0]); @@ -413,8 +403,6 @@ return $string; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _write { local *FH; open( FH, '>', $_[0] ) or die "open($_[0]): $!"; @@ -424,17 +412,6 @@ } close FH or die "close($_[0]): $!"; } -END_NEW -sub _write { - local *FH; - open( FH, "> $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - foreach ( 1 .. $#_ ) { - print FH $_[$_] or die "print($_[0]): $!"; - } - close FH or die "close($_[0]): $!"; -} -END_OLD # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/lib/App/perlbrew.pm new/App-perlbrew-0.77/lib/App/perlbrew.pm --- old/App-perlbrew-0.76/lib/App/perlbrew.pm 2016-06-21 23:05:27.000000000 +0200 +++ new/App-perlbrew-0.77/lib/App/perlbrew.pm 2016-11-12 07:21:01.000000000 +0100 @@ -2,7 +2,7 @@ use strict; use warnings; use 5.008; -our $VERSION = "0.76"; +our $VERSION = "0.77"; use Config; BEGIN { @@ -284,6 +284,7 @@ my %opt = ( original_argv => \@argv, args => [], + yes => 0, force => 0, quiet => 0, D => [], @@ -334,6 +335,7 @@ return Getopt::Long::GetOptions( $params, + 'yes', 'force|f', 'notest|n', 'quiet|q', @@ -693,18 +695,14 @@ sub available_perls { my ( $self, $dist, $opts ) = @_; + my @available_versions; my $url = $self->{all} ? "http://www.cpan.org/src/5.0/"; : "http://www.cpan.org/src/README.html"; ; - my $html = http_get( $url, undef, undef ); - unless($html) { die "\nERROR: Unable to retrieve the list of perls.\n\n"; } - - my @available_versions; - for ( split "\n", $html ) { if ( $self->{all} ) { push @available_versions, $1 @@ -717,6 +715,16 @@ } s/\.tar\.gz// for @available_versions; + # cperl releases: https://github.com/perl11/cperl/releases + # links do downloads looks: /perl11/cperl/releases/download/cperl-5.24.0-RC3/cperl-5.24.0-RC3.tar.gz + $html = http_get("https://github.com/perl11/cperl/releases";); + if ($html) { + while ( $html =~ m{href="/perl11/cperl/releases/download/cperl-(.+?)/cperl-\1.tar.gz"}xg ) { + push @available_versions, "cperl-$1"; + } + } else { + warn "\nWARN: Unable to retrieve the list of cperl releases.\n\n"; + } return @available_versions; } @@ -1143,7 +1151,7 @@ opendir DIRH, $build_dir or die "Couldn't open ${build_dir}: $!"; my @contents = readdir DIRH; closedir DIRH or warn "Couldn't close ${build_dir}: $!"; - my @candidates = grep { m/^perl-[0-9a-f]{7,8}$/ } @contents; + my @candidates = grep { m/^perl-[0-9a-f]{4,40}$/ } @contents; # Use a Schwartzian Transform in case there are lots of dirs that # look like "perl-$SHA1", which is what's inside blead.tar.gz, # so we stat each one only once. @@ -1616,7 +1624,7 @@ my $out = joinpath($self->root, "bin", $program_name); - if (-f $out && !$self->{force}) { + if (-f $out && !$self->{force} && !$self->{yes}) { require ExtUtils::MakeMaker; my $ans = ExtUtils::MakeMaker::prompt("\n$out already exists, are you sure to override ? [y/N]", "N"); @@ -2117,8 +2125,21 @@ } push @dir_to_delete, $to_delete->{dir}; - for (@dir_to_delete) { - rmpath($_); + my $ans = ($self->{yes}) ? "Y": undef; + if (!defined($ans)) { + require ExtUtils::MakeMaker; + $ans = ExtUtils::MakeMaker::prompt("\nThe following perl+lib installation(s) will be deleted:\n\n\t" . join("\n\t", @dir_to_delete) . "\n\n... are you sure ? [y/N]", "N"); + } + + if ($ans =~ /^Y/i) { + for (@dir_to_delete) { + print "Deleting: $_\n" unless $self->{quiet}; + rmpath($_); + print "Deleted: $_\n" unless $self->{quiet}; + } + } else { + print "\nOK. Not deleting anything.\n\n"; + return; } } @@ -2916,7 +2937,7 @@ endif setenv PATH_WITHOUT_PERLBREW `perl -e 'print join ":", grep { index($_, $ENV{PERLBREW_ROOT}) } split/:/,$ENV{PATH};'` -setenv PATH ${PERLBREW_PATH}:${PATH_WITHOUT_PERLBREW} +setenv PATH "${PERLBREW_PATH}:${PATH_WITHOUT_PERLBREW}" setenv MANPATH_WITHOUT_PERLBREW `perl -e 'print join ":", grep { index($_, $ENV{PERLBREW_ROOT}) } split/:/,qx(manpath 2> /dev/null);'` if ( $?PERLBREW_MANPATH == 1 ) then diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/t/13.perl_release.t new/App-perlbrew-0.77/t/13.perl_release.t --- old/App-perlbrew-0.76/t/13.perl_release.t 2015-02-01 10:09:41.000000000 +0100 +++ new/App-perlbrew-0.77/t/13.perl_release.t 2016-11-12 07:20:54.000000000 +0100 @@ -16,7 +16,7 @@ it "returns the perl dist tarball file name, and its download url" => sub { my $app = App::perlbrew->new; - for my $version (qw(5.14.2 5.10.1 5.10.0 5.003_07 5.004_05)) { + for my $version (qw(5.14.2 5.10.1 5.10.0 5.004_05)) { my ($ball, $url) = $app->perl_release($version); like $ball, qr/perl-?${version}.tar.(bz2|gz)/; like $url, qr/${ball}$/; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/App-perlbrew-0.76/t/17.release-detail-cperl-remote.t new/App-perlbrew-0.77/t/17.release-detail-cperl-remote.t --- old/App-perlbrew-0.76/t/17.release-detail-cperl-remote.t 2016-06-21 23:05:21.000000000 +0200 +++ new/App-perlbrew-0.77/t/17.release-detail-cperl-remote.t 2016-11-12 07:20:54.000000000 +0100 @@ -14,13 +14,13 @@ my $app = App::perlbrew->new(); -my $rd = { type => "cperl", "version" => "5.22.2" }; -$app->release_detail_cperl_remote("cperl-5.22.2", $rd); +my $rd = { type => "cperl", "version" => "5.24.0" }; +$app->release_detail_cperl_remote("cperl-5.24.0", $rd); ok defined( $rd->{tarball_url} ); ok defined( $rd->{tarball_name} ); -is $rd->{tarball_url}, "https://github.com/perl11/cperl/releases/download/cperl-5.22.2/cperl-5.22.2.tar.gz";; -is $rd->{tarball_name}, "cperl-5.22.2.tar.gz"; +is $rd->{tarball_url}, "https://github.com/perl11/cperl/releases/download/cperl-5.24.0/cperl-5.24.0.tar.gz";; +is $rd->{tarball_name}, "cperl-5.24.0.tar.gz"; done_testing;
