You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by wr...@locus.apache.org on 2000/05/26 06:22:15 UTC
cvs commit: apache-2.0/src/helpers cvstodsp5.pl dsp5tocvs.pl
wrowe 00/05/25 21:22:15
Modified: src/helpers cvstodsp5.pl dsp5tocvs.pl
Log:
Whoops, though I had already knocked off that nasty chomp() side effect.
Revision Changes Path
1.2 +1 -1 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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- cvstodsp5.pl 2000/05/26 04:18:27 1.1
+++ cvstodsp5.pl 2000/05/26 04:22:14 1.2
@@ -8,7 +8,7 @@
if (m|.dsp$|) {
$tname = '.#' . $_;
- print "Convert project " . $_ . " to CVS standard VC5 in " . $File::Find::dir . "\n";
+ print "Convert VC6 project " . $_ . " to VC5 in " . $File::Find::dir . "\n";
$srcfl = new IO::File $_, "r" || die;
$dstfl = new IO::File $tname, "w" || die;
while ($src = <$srcfl>) {
1.2 +2 -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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- dsp5tocvs.pl 2000/05/26 04:18:27 1.1
+++ dsp5tocvs.pl 2000/05/26 04:22:14 1.2
@@ -8,7 +8,7 @@
if (m|.dsp$|) {
$tname = '.#' . $_;
- print "Convert project " . $_ . " to VC6 in " . $File::Find::dir . "\n";
+ print "Convert VC6 project " . $_ . " to VC5 in " . $File::Find::dir . "\n";
$srcfl = new IO::File $_, "r" || die;
$dstfl = new IO::File $tname, "w" || die;
while ($src = <$srcfl>) {
@@ -17,8 +17,7 @@
$src =~ s|^(# ADD BASE CPP .*)/Zi (.*)|$1/ZI $2|;
if ($src =~ s|^(!MESSAGE .*)\\\n|$1|) {
$cont = <$srcfl>;
- chomp $src;
- $src = chomp($src) . $cont;
+ $src = $src . $cont;
}
print $dstfl $src;
if ($src =~ m|^# Begin Project|) {