[AudioLink-cvs]audiolink/code alsearch,1.23,1.24

[<ami...@us...>]

Update of /cvsroot/audiolink/audiolink/code
In directory sc8-pr-cvs1:/tmp/cvs-serv9851

Modified Files:
	alsearch 
Log Message:
use pod2usage better


Index: alsearch
===================================================================
RCS file: /cvsroot/audiolink/audiolink/code/alsearch,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** alsearch	4 Dec 2003 16:09:43 -0000	1.23
--- alsearch	4 Dec 2003 16:13:07 -0000	1.24
***************
*** 152,156 ****
  if (not @ARGV) {
      pod2usage();
-     exit;
  }
  
--- 152,155 ----
***************
*** 178,186 ****
  	   'genre=s'         => \$genre,
  	   'comment=s'       => \$comment
! 	   ) or pod2usage() and exit;
  
  if ($help) {
      pod2usage();
-     exit;
  }
  
--- 177,184 ----
  	   'genre=s'         => \$genre,
  	   'comment=s'       => \$comment
! 	   ) or pod2usage();
  
  if ($help) {
      pod2usage();
  }