[Genex-cvs-commit] genex-server/Genex/scripts make_classes.pl,1.31,1.32

[<jas...@us...>]

Update of /cvsroot/genex/genex-server/Genex/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv26914

Modified Files:
	make_classes.pl 
Log Message:
now creates all modules in Genex/Genex directory instead of
	   creating a seperate directory for each sub-module (thanks to
	   Allen Day <all...@uc...>) for this tip.

Index: make_classes.pl
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/scripts/make_classes.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** make_classes.pl	23 Apr 2003 21:24:23 -0000	1.31
--- make_classes.pl	27 Apr 2003 01:12:46 -0000	1.32
***************
*** 24,40 ****
  my %OPTIONS;
  $OPTIONS{root} = cwd();
! GetOptions(\%OPTIONS,
! 	   'make_pm',
! 	   'make_pod',
! 	   'help',
! 	   'force_test',
! 	   'force_makefile',
! 	   'control_only',
! 	   'linking_only',
! 	   'xml_directory=s',
! 	   'root=s',
! 	   'only=s',
! 	  );
  die $USAGE if exists $OPTIONS{help};
  
  die "$USAGE\nMust define --xml_directory\n"
--- 24,41 ----
  my %OPTIONS;
  $OPTIONS{root} = cwd();
! my $rc = GetOptions(\%OPTIONS,
! 		    'make_pm',
! 		    'make_pod',
! 		    'help',
! 		    'force_test',
! 		    'force_makefile',
! 		    'control_only',
! 		    'linking_only',
! 		    'xml_directory=s',
! 		    'root=s',
! 		    'only=s',
! 		   );
  die $USAGE if exists $OPTIONS{help};
+ die $USAGE unless $rc;
  
  die "$USAGE\nMust define --xml_directory\n"
***************
*** 186,190 ****
  
      my $base = $args{target};
!     my $dir = "$OPTIONS{root}/$base";
      my $file = "$dir/$base.pm";
      unless (-d $dir) {
--- 187,191 ----
  
      my $base = $args{target};
!     my $dir = "$OPTIONS{root}/Genex";
      my $file = "$dir/$base.pm";
      unless (-d $dir) {