| Subject: | use.perl.org changes broken module |
Changes to the UI of the users home page on use.perl.org broke the uid retrieval code in the module.
Attached is a patch that fixes it. All test pass. No documentation changes seemed necessary.
Rgds,
Simon Wilcox.
--- /usr/lib/perl5/site_perl/5.6.1/WWW/UsePerl/Journal.pm Sun Mar 3 20:09:14 2002
+++ lib/WWW/UsePerl/Journal.pm Wed Sep 25 02:15:14 2002
@@ -43,7 +43,7 @@
);
-$VERSION = '0.05';
+$VERSION = '0.06';
=head2 new
@@ -100,7 +100,7 @@
my $content = $self->{ua}->request(GET UP_URL . "/~$user/")->content;
die "Cannot connect to " . UP_URL unless $content;
- $content =~ m#User info for $user \((\d+)\)#ism
+ $content =~ m#$user \((\d+)\)#ism
or die "$user does not exist";
$1;
}