diff options
| -rwxr-xr-x | preps/perl.d/fetchcpan | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/preps/perl.d/fetchcpan b/preps/perl.d/fetchcpan index dff7873..b59c293 100755 --- a/preps/perl.d/fetchcpan +++ b/preps/perl.d/fetchcpan @@ -7,17 +7,13 @@ curl --silent "$mirror$path" | zcat 2>/dev/null | awk ' NR < 10 { next } { file = a[split($3, a, "/")] - - if (!match(file, /[-_][vV]?[0-9]+/)) { - #print "error: failed to grok " $3 | "cat 1>&2" - next - } - ver = substr(file, RSTART+1) - dist = substr(file, 1, RSTART-1) + ver = a[split(file, a, "[-_]")] + dist = substr(file, 1, length(file) - length(ver) - 1) + if(!dist) next # ignore dists with no versions sub(/[.]tar[.].*$|[.]zip$/, "", ver) sub(/^[vV]/, "", ver) - sub(/[.]pm$/, "", dist) + sub(/[.]pm$/, "", dist) # srsly? if(dist == "perl") next |