Author: pebender
Date: Wed Sep 3 20:29:54 2008
New Revision: 3698
Modified:
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed bug in MiniMyth::url_http_get that caused it to think that it it
had succeeded when it had failed.
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums (original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums Wed Sep 3
20:29:54 2008
@@ -1 +1 @@
-17fa8cc22f66aa142c2ce77209002e86 download/MiniMyth.pm
+5ef32d37875cea6a9a67cd1f6b492211 download/MiniMyth.pm
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
(original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm Wed Sep
3 20:29:54 2008
@@ -1214,7 +1214,7 @@
$curl->setopt(CURLOPT_WRITEDATA, $OUT_FILE);
my $retcode = $curl->perform;
close($OUT_FILE);
- if ($retcode == 0)
+ if (($retcode == 0) && ($curl->getinfo(CURLINFO_HTTP_CODE) == 200))
{
$result = $url;
}
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"minimyth-commits" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/minimyth-commits?hl=en
-~----------~----~----~----~------~----~------~--~---
