Changeset 3886 for trunk/build
- Timestamp:
- 06/19/09 04:11:07 (5 months ago)
- Files:
-
- 1 modified
-
trunk/build/Build.pm (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/build/Build.pm
r3531 r3886 36 36 use strict; 37 37 use warnings; 38 use Archive::Tar;39 38 use Cwd; 40 39 use File::Basename; … … 44 43 use Getopt::Long; 45 44 use IO::File; 46 use LWP::UserAgent;47 use Net::SMTP;48 45 use Sys::Hostname; 49 46 … … 669 666 # Make sure that the repository actually exists. 670 667 if( !$self->{'debug'} && $self->{'export!'} ) { 668 require LWP::UserAgent; 671 669 $self->{'agent=s'} = LWP::UserAgent->new; 672 670 my $request = HTTP::Request->new( HEAD => $self->{'repo-uri=s'} ); … … 793 791 if $self->{'qa'} or !$self->{'cleanup!'}; 794 792 793 require Net::SMTP; 795 794 my $smtp = Net::SMTP->new( 796 795 $self->{'email-host=s'},
