From http://www.jwz.org/xscreensaver/xscreensaver-5.22.tar.gz

[xscreensaver] / driver / xscreensaver-getimage-file

diff --git a/driver/xscreensaver-getimage-file b/driver/xscreensaver-getimage-file
index 8f5672f08eea769b3761ca492e5575c85407f059..7b45988de5f0e49eb97261b4c002416c570ac9c2 100755 (executable)
--- 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.33 $ }; $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]+);?)/
@@ -485,7 +487,7 @@ sub parse_feed($) {
       }!gsexi;
     }
 
-    # Then look for <description>... with an <img href="..."> inside.
+    # Then look for <description>... with an <img src="..."> inside.
     #
     if (! $iurl) {
       $item =~ s!(<description[^<>]*>.*?</description>)!{
@@ -957,7 +959,7 @@ sub usage() {
          "${min_image_width}x${min_image_height} are excluded.\n" .
   "\n" .
   "       The directory may also be the URL of an RSS/Atom feed.  Enclosed\n" .
-  "       images will be downloaded cached locally.\n" .
+  "       images will be downloaded and cached locally.\n" .
   "\n";
   exit 1;
 }