Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Date: 10 Nov 2003 18:53:10 -0000
Message-ID: <20031110185310.56411.qmail@minotaur.apache.org>
From: stas@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/build win32_fetch_apxs

stas        2003/11/10 10:53:10

  Modified:    build    win32_fetch_apxs
  Log:
  postpone the requirement of Archive::Tar and LWP::Simple until they
  needed.
  
  Revision  Changes    Path
  1.2       +4 -2      modperl-2.0/build/win32_fetch_apxs
  
  Index: win32_fetch_apxs
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/build/win32_fetch_apxs,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- win32_fetch_apxs	7 Nov 2003 08:38:24 -0000	1.1
  +++ win32_fetch_apxs	10 Nov 2003 18:53:10 -0000	1.2
  @@ -14,9 +14,7 @@
   use warnings;
   use Getopt::Long;
   use File::Spec::Functions;
  -use Archive::Tar;
   use File::Path;
  -use LWP::Simple;
   use ExtUtils::MakeMaker qw(prompt);
   use Cwd;
   
  @@ -61,6 +59,9 @@
   my $ans = prompt('Install apxs now?', 'yes');
   exit 0 unless $ans =~ /^y/i;
   
  +require LWP::Simple;
  +LWP::Simple->import(qw(is_success getstore));
  +
   my $file = 'apxs_win32.tar.gz';
   unless (-e $file) {
       my $remote = 'http://perl.apache.org/dist/win32-bin/' . $file;
  @@ -70,6 +71,7 @@
       print " done!\n";
   }
   
  +require Archive::Tar;
   my $cwd = getcwd;
   my $dir = 'apxs';
   my $arc = Archive::Tar->new($file, 1);