Fixed snapshot parsing and viewing

diff --git a/lib/Insipid/Snapshots.pm b/lib/Insipid/Snapshots.pm
index 9b802b4f09a6f574fcae22a37dd48cc9ee06fe70..ea93dd4e79d8edc217dbe49df9dc2e61d577497f 100755 (executable)
--- a/lib/Insipid/Snapshots.pm
+++ b/lib/Insipid/Snapshots.pm
@@ -57,9 +57,6 @@ parsepage
 fetch_url\r
 );\r
 \r
-use SelfLoader;\r
-__DATA__\r
-\r
 my $ua = LWP::UserAgent->new(timeout=>30);\r
 if(get_option('proxy_host') ne '') {\r
        my $proxy_host = get_option('proxy_host');\r
@@ -120,7 +117,8 @@ sub fetch_url {
        if(defined($roverride)) { $referer = $roverride; }\r
        my $md5 = md5_hex($url);\r
 \r
-       my $req = HTTP::Request->new(GET => $url);\r
+       my $req = HTTP::Request->new(GET => $url) or die "Can't fetch page: $!\n";\r
+\r
        if($referer ne '') { $req->header( referer => $referer ); }\r
 \r
        my $res = $ua->request($req);\r