diff options
| author | Jos I. Boumans <kane@dwim.org> | 2007-10-15 16:40:39 +0200 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-10-16 04:05:18 +0000 |
| commit | a0ad48303c4c3ff5a1b280f048d8329685f63be1 (patch) | |
| tree | f8f023e450a8e4d472c8518018992ec6dd4795fe /lib/File/Fetch.pm | |
| parent | 3a6a06e3532291480d4b7e2c8da32f50daa37fe4 (diff) | |
| download | perl-a0ad48303c4c3ff5a1b280f048d8329685f63be1.tar.gz | |
Update File::Fetch to 0.12
From: "Jos I. Boumans" <jos@dwim.org>
Message-Id: <D845A191-6837-4618-8A34-B44A3DC6F5C6@dwim.org>
p4raw-id: //depot/perl@32108
Diffstat (limited to 'lib/File/Fetch.pm')
| -rw-r--r-- | lib/File/Fetch.pm | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/lib/File/Fetch.pm b/lib/File/Fetch.pm index 59e0873acf..a9a9dc4f32 100644 --- a/lib/File/Fetch.pm +++ b/lib/File/Fetch.pm @@ -23,7 +23,7 @@ use vars qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT use constant QUOTE => do { $^O eq 'MSWin32' ? q["] : q['] }; -$VERSION = '0.10'; +$VERSION = '0.12'; $PREFER_BIN = 0; # XXX TODO implement $FROM_EMAIL = 'File-Fetch@example.com'; $USER_AGENT = 'File::Fetch/$VERSION'; @@ -50,8 +50,7 @@ local $Module::Load::Conditional::VERBOSE = 0; ### see what OS we are on, important for file:// uris ### use constant ON_UNIX => ($^O ne 'MSWin32' and - $^O ne 'MacOS' and - $^O ne 'VMS'); + $^O ne 'MacOS'); =pod @@ -333,6 +332,7 @@ sub fetch { local $ENV{FTP_PASSIVE} = $FTP_PASSIVE; ### + my $out_to = File::Spec->catfile( $to, $self->output_file ); for my $method ( @{ $METHODS->{$self->scheme} } ) { my $sub = '_'.$method.'_fetch'; @@ -357,7 +357,7 @@ sub fetch { local $IPC::Cmd::USE_IPC_RUN = 0; if( my $file = $self->$sub( - to => File::Spec->catfile( $to, $self->output_file ) + to => $out_to )){ unless( -e $file && -s _ ) { @@ -1053,18 +1053,21 @@ and URI encoding here: To indicate to rather use commandline tools than modules -=head1 AUTHORS +=back + +=head1 BUG REPORTS + +Please report bugs or other issues to E<lt>bug-file-fetch@rt.cpan.org<gt>. + +=head1 AUTHOR This module by Jos Boumans E<lt>kane@cpan.orgE<gt>. =head1 COPYRIGHT -This module is copyright (c) 2003-2007 Jos Boumans -E<lt>kane@cpan.orgE<gt>. All rights reserved. +This library is free software; you may redistribute and/or modify it +under the same terms as Perl itself. -This library is free software; -you may redistribute and/or modify it under the same -terms as Perl itself. =cut |