view release on metacpan or  search on metacpan

lib/CPANPLUS/Dist/Fedora.pm  view on Meta::CPAN

267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
            return (($br eq 'perl') ? $br : "perl($br)");
        },
 
        packagervers => $VERSION,
        # s/DISTEXTRA/join( "\n", @{ $status->extra_files || [] })/e;
        # ... FIXME
    },
    $status->specpath,
);
 
if ( $intern->_callbacks->munge_dist_metafile ) {
    print 'munging...';
 
    my $orig_contents = _read_file( $status->specpath );
    my $new_contents = $intern->_callbacks->munge_dist_metafile->($intern, $orig_contents);
    _write_file( $status->specpath, $new_contents );
}
 
# copy package.
my $tarball = "$dir/" . basename $module->status->fetch;
copy $module->status->fetch, $tarball;
 
msg( "specfile for '$distname' written" );
# return success
$status->prepared(1);