App-Magpie

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

2.003     2014-02-24 15:53:07+01:00 Europe/Paris
 - old: new set "null" if one of the old/new version is 0
 - old: new set "confused" when cpan reports a difference although there isn't
 - old: update modules.skip
 - fix: auto-converting SPEC to use Makefile.PL or Build.PL if needed
 - fix: adding Module::Build::Tiny compatibility
 - migrated from Path::Class to Path::Tiny

2.002     2013-06-10 13:47:21 Europe/Paris
 - dwim: allow dwimery to continue when package should be updated again

2.001     2013-06-03 13:55:57 Europe/Paris
 - old: using cpan instead of cpanp
 - old: only list a pkgs once, even if multiple modules are old

2.000     2012-10-19 15:53:22 Europe/Paris
 - migrated to @dzpa:jquelin
 - new command: sort
 - dwim: migrating to parallel::forkmanager for more flexibility
 - dwim: do not try to update a package more than once

Changes  view on Meta::CPAN

 - old: update modules.skip

1.111020  2011-04-12 14:23:04 Europe/Paris
 - new command: dwim
 - checkout: using temp chdir to not remove carpet under other commands
 - logger: prepend pid to each log message
 - old: bigger space left for version information columns

1.110840  2011-03-25 10:11:11 Europe/Paris
 - old: adding skip based on package name
 - old: modules.skip updated

1.110720  2011-03-13 10:46:39 Europe/Paris
 - update: allow tabs in %define upstream_version

1.110690  2011-03-10 14:00:51 Europe/Paris
 - skiplist update

1.110680  2011-03-09 12:16:27 Europe/Paris
 - new command: old
 - all commands are now dispatched in their own modules, to be able to

lib/App/Magpie/Action/FixSpec.pm  view on Meta::CPAN

    my $distdir = path( glob "BUILD/*" );
    my $has_makefile_pl = $distdir->child("Makefile.PL")->exists;
    my $has_build_pl    = $distdir->child("Build.PL")->exists;
    if ( $spec =~ /Makefile.PL/ && !$has_makefile_pl ) {
        $self->log( "module converted to use Build.PL only" );
        $spec =~ s{%\{?__perl\}? Makefile.PL INSTALLDIRS=vendor}{%__perl Build.PL --installdirs=vendor};
        $spec =~ s{^%?make$}{./Build CFLAGS="%{optflags}"}m;
        $spec =~ s{%?make test}{./Build test};
        $spec =~ s{%makeinstall_std}{./Build install --destdir=%{buildroot}};
        # writing down new spec file
        $self->log_debug( "writing updated spec file" );
        my $fh = $specfile->openw;
        $fh->print($spec);
        $fh->close;
    }
    if ( $spec =~ /Build.PL/ && !$has_build_pl ) {
        $self->log( "module converted to use Makefile.PL only" );
        $spec =~ s{%\{?__perl\}? Build.PL (--)?installdirs=vendor}{%__perl Makefile.PL INSTALLDIRS=vendor};
        $spec =~ s{./Build( CFLAGS="%\{optflags\}")?$}{%make}m;
        $spec =~ s{./Build test}{%make test};
        $spec =~ s{./Build install.*}{%makeinstall_std};
        # writing down new spec file
        $self->log_debug( "writing updated spec file" );
        my $fh = $specfile->openw;
        $fh->print($spec);
        $fh->close;
    }

    $self->log_debug( "generating MYMETA" );
    path( "BUILD" )->remove_tree( { safe => 0 } );
    $self->run_command( "bm -lc" ); # run -c to make sure MYMETA is generated
    $distdir = path( glob "BUILD/*" );
    my $metafile;

lib/App/Magpie/Action/FixSpec.pm  view on Meta::CPAN

        # "no summary found"
        # "no description found"
        # make test without %check
        # %modprefix


    # removing extra newlines
    $spec =~ s{\n{3,}}{\n\n}g;

    # writing down new spec file
    $self->log_debug( "writing updated spec file" );
    my $fh = $specfile->openw;
    $fh->print($spec);
    $fh->close;
}



1;

__END__

lib/App/Magpie/Action/Old/Set.pm  view on Meta::CPAN

=head1 NAME

App::Magpie::Action::Old::Set - a set of AM::Old::Modules objects

=head1 VERSION

version 2.010

=head1 SYNOPSIS

This class holds a set of modules that have been updated on CPAN. There
can be multiple sets - eg: core, dual, ...

=head1 ATTRIBUTES

=head2 name

The name of the set.

=head1 METHODS

share/packages.skip  view on Meta::CPAN

# vim: set textwidth=
# one line per pattern, following the scheme:
#
#       package ; reason
#
# string comparison with package field.
#
mdv-distrib-tools       ; mageia/rpm toolchain
perl-Image-Magick       ; from imagemagick
perl-kolab              ; not updated since 2004
perl-Mail-SpamAssassin  ; spamassassin should be handled with care
perl-qt4                ; from kdebindings
perl-SVN                ; from subversion
perl-URPM               ; rpm toolchain