view release on metacpan or  search on metacpan

scripts/apc2svn  view on Meta::CPAN

  } else {
    print "For $pver there is no tarfile to check in; nothing left to do.\n";
  }
  exit if $Signal;
}

sub svn_mkdir_minus_p ($$) {
  my($root,$mkdir) = @_;
  die "mkdir no value" unless $mkdir;
  my $ipath = "";
  for my $idir (split m|/|, $mkdir) {
    $ipath = $ipath ? "$ipath/$idir" : $idir;
    my $urlipath = "$root/$ipath";
    unless (myls $urlipath) {
      mysystem(svn => "mkdir",
               "-m" => "mkdir $ipath", $urlipath) or die;
    }
  }
}

sub myls ($) {

scripts/patchaperlup  view on Meta::CPAN

        close G or die "Could not run '$Zcat $pathdiff': $!";
    }
    close F;
    verbose "\n";

    open F, $tmpfile or die "Couldn't open $tmpfile: $!";
    my %pfiles;
    while (<F>) {
        s/^-:\s//;
        chomp $_;
        my @pfiles = grep { -f $_ } split m{ }, $_;
        @pfiles{@pfiles} = ();
    }
    close F;
    unlink $tmpfile;

    # at the time of patch 7632, some files in the repository were changed
    # to contain no CR
    if (1) {

        @ARGV = grep contains_cr($_), keys %pfiles;