[Http-webtest-commits] HTTP-WebTest/bin wt,1.4,1.5

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv30904

Modified Files:
	wt 
Log Message:
Cosmetic changes


Index: wt
===================================================================
RCS file: /cvsroot/http-webtest/HTTP-WebTest/bin/wt,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** wt	7 Jan 2003 21:53:31 -0000	1.4
--- wt	7 Jan 2003 22:05:32 -0000	1.5
***************
*** 89,101 ****
  use HTTP::WebTest;
  
! my $man = 0;
! my $help = 0;
! my $version = 0;
! GetOptions('help|?'    => \$help,
!            'version|V' => \$version,
!            'man'       => \$man) or pod2usage(2);
! pod2usage(1) if $help;
! pod2usage(-verbose => 2) if $man;
! if($version) {
      my $version = HTTP::WebTest->VERSION;
      print <<TEXT;
--- 89,98 ----
  use HTTP::WebTest;
  
! my %OPTIONS = ();
! GetOptions(\%OPTIONS,
!            qw(help|? version|V man)) or pod2usage(2);
! pod2usage(1) if $OPTIONS{help};
! pod2usage(-verbose => 2) if $OPTIONS{man};
! if($OPTIONS{version}) {
      my $version = HTTP::WebTest->VERSION;
      print <<TEXT;
***************
*** 115,124 ****
  @ARGV = '-' if @ARGV < 1;
  
! my $webtest = HTTP::WebTest->new();
! my $exit_status = 0;
! for my $file (@ARGV) {
!     $webtest->run_wtscript($file);
!     $exit_status = 1 unless $webtest->have_succeed;
! }
  
! exit $exit_status;
--- 112,125 ----
  @ARGV = '-' if @ARGV < 1;
  
! exit main();
  
! sub main {
!     my $webtest = HTTP::WebTest->new();
!     my $exit_status = 0;
!     for my $file (@ARGV) {
!         $webtest->run_wtscript($file);
!         $exit_status = 1 unless $webtest->have_succeed;
!     }
! 
!     return $exit_status;
! }