X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=driver%2Fxscreensaver-getimage-file;h=7b45988de5f0e49eb97261b4c002416c570ac9c2;hp=cc61a08d86f69ae796b52d8542bc734f1b6f10ba;hb=4ade52359b6eba3621566dac79793a33aa4c915f;hpb=ff35d056d723c9a5ffe728dbba5f1c25e141be04

diff --git a/driver/xscreensaver-getimage-file b/driver/xscreensaver-getimage-file
index cc61a08d..7b45988d 100755
--- a/driver/xscreensaver-getimage-file
+++ b/driver/xscreensaver-getimage-file
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright © 2001-2012 Jamie Zawinski <jwz@jwz.org>.
+# Copyright © 2001-2013 Jamie Zawinski <jwz@jwz.org>.
 #
 # Permission to use, copy, modify, distribute, and sell this software and its
 # documentation for any purpose is hereby granted without fee, provided that
@@ -57,7 +57,7 @@ BEGIN { eval 'use LWP::Simple;' }
 
 
 my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.34 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version = q{ $Revision: 1.35 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
 my $verbose = 0;
 
@@ -330,6 +330,8 @@ sub write_cache($) {
 
 sub html_unquote($) {
   my ($h) = @_;
+
+  # This only needs to handle entities that occur in RSS, not full HTML.
   my %ent = ( 'amp' => '&', 'lt' => '<', 'gt' => '>', 
               'quot' => '"', 'apos' => "'" );
   $h =~ s/(&(\#)?([[:alpha:]\d]+);?)/