forked from pool/perl-XML-Entities
c0de57f208
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-XML-Entities?expand=0&rev=1
19 lines
662 B
Diff
19 lines
662 B
Diff
--- 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';
|