DarcsConversion: push-all.patch

File push-all.patch, 572 bytes (added by guest, 6 years ago)

push-all

  • push-all

    diff --git a/push-all b/push-all
    index 545cbe2..a191782 100755
    a b sub pushall { 
    4040    my $path; 
    4141    my $tag; 
    4242    my $ghcrepo = $checked_out ? $reporoot : "$reporoot/ghc"; 
    43     darcs_push ($ghcrepo, @_); 
    44  
     43     
    4544    open IN, "< packages" or die "Can't open packages file"; 
    4645    while (<IN>) { 
    4746        chomp; 
    48         if (/^([^ ]+) +(?:([^ ]+) +)?([^ ]+)/) { 
     47        if (/^([^# ]+) +(?:([^ ]+) +)?([^ ]+) +([^ ]+)$/) { 
    4948            $localpath = $1; 
    5049            $tag = defined($2) ? $2 : ""; 
    5150            $remotepath = $3;