Skip Menu |

This queue is for tickets about the WWW-Dilbert CPAN distribution.

Report information
The Basics
Id: 35402
Status: open
Priority: 0/
Queue: WWW-Dilbert

Owner: Nobody in particular
Requestors: davidp [...]

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)

Subject: Fails to fetch now that Dilbert page has changed
Download (untitled) / with headers
text/plain 131b
Now that the Dilbert website has changed, WWW::Dilbert can no longer find the comic. A patch is attached which resolves it for me.
text/x-diff 638b
--- 2008-04-25 09:50:58.000000000 +0100 +++ 2008-04-25 09:55:28.000000000 +0100 @@ -98,10 +98,10 @@ my $response = $ua->get(''); if ($response->is_success) { my $html = $response->content; - if ($html =~ m#<img\s+src="((?:https?://[\w\.:\d\/]+)? - /comics/dilbert/archive/images/dilbert.+?)"#imsx) { + if ($html =~ m{<img \s+ src="( [^"]+ strip.print.gif)"}imsx) { my $url = $1; - $url = "$1" unless $url =~ /^https?:\/\//i; + $url = "$1" + unless $url =~ m{^https?://}i; return $url; }
Download (untitled) / with headers
text/plain 106b
If it's easier for you Nicola, I'd be happy to take over maintainership and release a new version for you?
Download (untitled) / with headers
text/plain 189b
Any chance you could find time at some point to apply the patch, or alternatively give me co-maintainer status on this module so I can release a fixed version? I'd greatly appreciate it :)

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to