| 1 |
diff -up openssl-1.0.0-beta3/apps/tsget.curl openssl-1.0.0-beta3/apps/tsget
|
| 2 |
--- openssl-1.0.0-beta3/apps/tsget.curl 2006-02-13 00:11:21.000000000 +0100
|
| 3 |
+++ openssl-1.0.0-beta3/apps/tsget 2009-08-21 15:37:24.000000000 +0200
|
| 4 |
@@ -7,7 +7,7 @@ use strict;
|
| 5 |
use IO::Handle;
|
| 6 |
use Getopt::Std;
|
| 7 |
use File::Basename;
|
| 8 |
-use WWW::Curl::easy;
|
| 9 |
+use WWW::Curl::Easy;
|
| 10 |
|
| 11 |
use vars qw(%options);
|
| 12 |
|
| 13 |
@@ -37,7 +37,7 @@ sub create_curl {
|
| 14 |
my $url = shift;
|
| 15 |
|
| 16 |
# Create Curl object.
|
| 17 |
- my $curl = WWW::Curl::easy::new();
|
| 18 |
+ my $curl = WWW::Curl::Easy::new();
|
| 19 |
|
| 20 |
# Error-handling related options.
|
| 21 |
$curl->setopt(CURLOPT_VERBOSE, 1) if $options{d};
|
| 22 |
@@ -192,4 +192,4 @@ REQUEST: foreach (@ARGV) {
|
| 23 |
STDERR->printflush(", $output written.\n") if $options{v};
|
| 24 |
}
|
| 25 |
$curl->cleanup();
|
| 26 |
-WWW::Curl::easy::global_cleanup();
|
| 27 |
+WWW::Curl::Easy::global_cleanup();
|