File perl-XML-Entities-local_files.patch of Package perl-XML-Entities

--- bin/download-entities.pl.orig	2009-11-06 16:17:54.000000000 +0100
+++ bin/download-entities.pl	2009-11-06 16:21:14.000000000 +0100
@@ -86,6 +86,15 @@
 sub download {
     my ($url, $options) = @_;
 
+    my $filename = $url;
+    $filename =~ s|^.*/||;
+    print "filename=\"$filename\"\n";
+    open(my $filehandle, '<', $filename) or die "failed to open \"$filename\": $!";
+    my $filecontent = "";
+    while (<$filehandle>) { $filecontent .= $_; }
+    close($filehandle);
+    return $filecontent;
+
     if ($OPTIONS{interactive}) {
         print STDERR "About to download '$url'\n";
         my $ignore_ok = ', enter whitespace to skip download';