This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update File::Fetch to 0.12
authorJos I. Boumans <kane@dwim.org>
Mon, 15 Oct 2007 14:40:39 +0000 (16:40 +0200)
committerCraig A. Berry <craigberry@mac.com>
Tue, 16 Oct 2007 04:05:18 +0000 (04:05 +0000)
From: "Jos I. Boumans" <jos@dwim.org>
Message-Id: <D845A191-6837-4618-8A34-B44A3DC6F5C6@dwim.org>

p4raw-id: //depot/perl@32108

lib/File/Fetch.pm

index 59e0873..a9a9dc4 100644 (file)
@@ -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