From 69f9d0c9167fe4b68bfe44bc4035fa56ccacb335 Mon Sep 17 00:00:00 2001 From: Gunter Knauf Date: Mon, 5 Jul 2004 22:35:00 +0000 Subject: the simple way was too simple, so added --mktarball option. --- tests/testcurl.pl | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'tests') diff --git a/tests/testcurl.pl b/tests/testcurl.pl index ac569fe8f..3ffaa53ba 100755 --- a/tests/testcurl.pl +++ b/tests/testcurl.pl @@ -52,7 +52,7 @@ BEGIN { $^W = 1; } use vars qw($version $fixed $infixed $CURLDIR $CVS $pwd $build $buildlog $buildlogname $gnulikebuild $targetos $confsuffix $binext $libext); -use vars qw($name $email $desc $confopts $setupfile); +use vars qw($name $email $desc $confopts $setupfile $mktarball); # version of this script $version='$Revision$'; @@ -64,11 +64,14 @@ $CURLDIR="curl"; $CVS=1; $targetos = ''; $setupfile = 'setup'; +$mktarball = ''; while ($ARGV[0]) { if ($ARGV[0] =~ /--target=/) { $targetos = (split(/=/, shift @ARGV))[1]; } elsif ($ARGV[0] =~ /--setup=/) { $setupfile = (split(/=/, shift @ARGV))[1]; + } elsif ($ARGV[0] =~ /--mktarball=/) { + $mktarball = (split(/=/, shift @ARGV))[1]; } else { $CURLDIR=shift @ARGV; $CVS=0; @@ -425,7 +428,9 @@ if (-f "src/curl$binext") { } if ($targetos ne '' && $targetos =~ /netware/) { - #system('../../curlver.sh'); + if (-f '../../curlver') { + system('../../curlver'); + } } else { logit "display curl$binext --version output"; @@ -459,9 +464,9 @@ if ($gnulikebuild) { print "TESTDONE: 1 tests out of 0 (dummy message)\n"; # dummy message to feign success } -# simple way to create a tarball just before the build is deleted. -if (-f '../mktarball') { - system('../mktarball'); +# create a tarball if we got that option. +if ($mktarball ne '') { + system($mktarball); } # mydie to cleanup -- cgit v1.2.3