httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From wr...@locus.apache.org
Subject cvs commit: apache-2.0/src/helpers cvstodsp5.pl dsp5tocvs.pl
Date Sat, 17 Jun 2000 20:44:46 GMT
wrowe       00/06/17 13:44:46

  Modified:    src/helpers cvstodsp5.pl dsp5tocvs.pl
  Log:
    Time to jump back into 2.0 again... here are yesterday's updates to
    the MSVC conversion scripts, since the old ones would occasional be
    whacked.  Again I ask, if you see better code here, please commit it.
  
  Revision  Changes    Path
  1.4       +5 -4      apache-2.0/src/helpers/cvstodsp5.pl
  
  Index: cvstodsp5.pl
  ===================================================================
  RCS file: /home/cvs/apache-2.0/src/helpers/cvstodsp5.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- cvstodsp5.pl	2000/05/27 17:47:01	1.3
  +++ cvstodsp5.pl	2000/06/17 20:44:46	1.4
  @@ -7,9 +7,10 @@
   sub tovc5 { 
   
       if (m|.dsp$|) {
  +        $oname = $_;
   	$tname = '.#' . $_;
           $verchg = 0;
  -	$srcfl = new IO::File $_, "r" || die;
  +	$srcfl = new IO::File $oname, "r" || die;
   	$dstfl = new IO::File $tname, "w" || die;
   	while ($src = <$srcfl>) {
   	    if ($src =~ s|Format Version 6\.00|Format Version 5\.00|) {
  @@ -31,9 +32,9 @@
   	undef $srcfl;
   	undef $dstfl;
   	if ($verchg) {
  -	    unlink $_;
  -	    rename $tname, $_;
  -	    print "Converted VC6 project " . $_ . " to VC5 in " . $File::Find::dir . "\n"; 
  +	    unlink $oname || die;
  +	    rename $tname, $oname || die;
  +	    print "Converted VC6 project " . $oname . " to VC5 in " . $File::Find::dir . "\n";

   	}
   	else {
   	    unlink $tname;
  
  
  
  1.6       +4 -3      apache-2.0/src/helpers/dsp5tocvs.pl
  
  Index: dsp5tocvs.pl
  ===================================================================
  RCS file: /home/cvs/apache-2.0/src/helpers/dsp5tocvs.pl,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- dsp5tocvs.pl	2000/06/01 14:48:41	1.5
  +++ dsp5tocvs.pl	2000/06/17 20:44:46	1.6
  @@ -7,6 +7,7 @@
   sub tovc6 { 
   
       if (m|.dsp$|) {
  +        $oname = $_;
   	$tname = '.#' . $_;
   	$verchg = 0;
   	$srcfl = new IO::File $_, "r" || die;
  @@ -34,9 +35,9 @@
   	undef $srcfl;
   	undef $dstfl;
   	if ($verchg) {
  -	    unlink $_;
  -	    rename $tname, $_;
  -	    print "Converted VC5 project " . $_ . " to VC6 in " . $File::Find::dir . "\n"; 
  +	    unlink $oname || die;
  +	    rename $tname, $oname || die;
  +	    print "Converted VC5 project " . $oname . " to VC6 in " . $File::Find::dir . "\n";

   	}
   	else {
   	    unlink $tname;
  
  
  

Mime
View raw message