Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Support -TRIAL

  • Loading branch information...
commit 8f05b9f1f4dee4af57169770b8ed19ab686b14d3 1 parent cb8c231
Tatsuhiko Miyagawa authored
Showing with 5 additions and 2 deletions.
  1. +3 −0  Changes
  2. +2 −2 lib/App/CPAN/Fresh.pm
3  Changes
View
@@ -1,5 +1,8 @@
Revision history for Perl extension App::CPAN::Fresh
+0.10 Wed Feb 16 10:15:17 PST 2011
+ - Support -TRIAL releases
+
0.09 Tue Jun 22 17:37:35 EDT 2010
- Fixed -h docs
4 lib/App/CPAN/Fresh.pm
View
@@ -98,7 +98,7 @@ sub inject {
for my $entry (@{$res->{entries}}) {
my $info = $self->parse_entry($entry->{body}, $entry->{date}) or next;
if ($info->{dist} eq $dist) {
- if ($info->{version} =~ /_/ && !$opt->{devel}) {
+ if ($info->{version} =~ /_|-TRIAL/ && !$opt->{devel}) {
warn "$info->{dist}-$info->{version} found: No -d option, skipping\n";
return;
}
@@ -147,7 +147,7 @@ sub parse_entry {
return;
}
- if ($body =~ /^([\w\-]+) ([0-9\._]*) by (.+?) - <a.*href="(http:.*?\.tar\.gz)"/) {
+ if ($body =~ /^([\w\-]+) ([0-9\._]*(?:-TRIAL)?) by (.+?) - <a.*href="(http:.*?\.tar\.gz)"/) {
return {
dist => $1,
version => $2,
Please sign in to comment.
Something went wrong with that request. Please try again.