You need to sign in or sign up before continuing.
提交 2d1cbca9 编写于 作者: D Dr. Stephen Henson

PR: 2020

Submitted by: Keith Beckman <kbeckman@mcg.edu>,  Tomas Mraz <tmraz@redhat.com>
Checked by: steve@openssl.org

Fix improperly capitalized references to WWW::Curl::Easy.
上级 fc680569
#!/usr/bin/perl -w #!/usr/bin/perl -w
# Written by Zoltan Glozik <zglozik@stones.com>. # Written by Zoltan Glozik <zglozik@stones.com>.
# Copyright (c) 2002 The OpenTSA Project. All rights reserved. # Copyright (c) 2002 The OpenTSA Project. All rights reserved.
$::version = '$Id: tsget,v 1.1 2006/02/12 23:11:21 ulf Exp $'; $::version = '$Id: tsget,v 1.2 2009/09/02 15:57:24 steve Exp $';
use strict; use strict;
use IO::Handle; use IO::Handle;
use Getopt::Std; use Getopt::Std;
use File::Basename; use File::Basename;
use WWW::Curl::easy; use WWW::Curl::Easy;
use vars qw(%options); use vars qw(%options);
...@@ -37,7 +37,7 @@ sub create_curl { ...@@ -37,7 +37,7 @@ sub create_curl {
my $url = shift; my $url = shift;
# Create Curl object. # Create Curl object.
my $curl = WWW::Curl::easy::new(); my $curl = WWW::Curl::Easy::new();
# Error-handling related options. # Error-handling related options.
$curl->setopt(CURLOPT_VERBOSE, 1) if $options{d}; $curl->setopt(CURLOPT_VERBOSE, 1) if $options{d};
...@@ -192,4 +192,4 @@ REQUEST: foreach (@ARGV) { ...@@ -192,4 +192,4 @@ REQUEST: foreach (@ARGV) {
STDERR->printflush(", $output written.\n") if $options{v}; STDERR->printflush(", $output written.\n") if $options{v};
} }
$curl->cleanup(); $curl->cleanup();
WWW::Curl::easy::global_cleanup(); WWW::Curl::Easy::global_cleanup();
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册