view release on metacpan or  search on metacpan

cpan2rpm  view on Meta::CPAN

        shift \@_ if \@_ % 2;
        
        # collect parameters and call original

        %meta = \@_ unless %meta;
        *$PLFN = \\&${PLFN}_orig;
        goto &$PLFN;
        };/;

    local @ARGV = ();
    local $0 = $t;
	my @listargs = split(' ', $info->{"make-maker"});
    push @ARGV, @listargs if @listargs;
    # execute the makefile
    my $ok = 0;
    eval {
        do $t; $ok++;
        };
    my $err = $@;
    unlink $t || die "get_meta(): rm[$t] - $!";