jberry 01/06/10 12:37:40
Modified: c/Projects/MacOS ShortenFiles.pl
Log:
Neaten formatting of output.
Revision Changes Path
1.5 +6 -3 xml-xerces/c/Projects/MacOS/ShortenFiles.pl
Index: ShortenFiles.pl
===================================================================
RCS file: /home/cvs/xml-xerces/c/Projects/MacOS/ShortenFiles.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- ShortenFiles.pl 2000/09/06 21:55:40 1.4
+++ ShortenFiles.pl 2001/06/10 19:37:40 1.5
@@ -7,6 +7,9 @@
#
# $Log: ShortenFiles.pl,v $
+# Revision 1.5 2001/06/10 19:37:40 jberry
+# Neaten formatting of output.
+#
# Revision 1.4 2000/09/06 21:55:40 jberry
# Allow ShortenFiles to work even when the destination directory already exists
#
@@ -148,7 +151,7 @@
if (exists $gBadMap{$srcName})
{
$dstName = $gBadMap{$srcName};
- print "Renaming file $srcName --> $dstName\n";
+ print "Renaming file $srcName\n\t--> $dstName\n";
}
$srcPath = $File::Find::name;
@@ -158,7 +161,7 @@
$dstPath =~ s/$srcName$/$dstName/;
$dstPath =~ s/^$gSrcBase/$gDstBase/;
-#print "srcName $srcName, dstName $dstName, srcPath $srcPath, dstPath $dstPath\n";
+ #print "srcName $srcName, dstName $dstName, srcPath $srcPath, dstPath $dstPath\n";
if (-d $srcPath)
{
@@ -201,7 +204,7 @@
$sub = $gBadMap{$was};
s/^(.*)include(.*)$was(.*)/$1include$2$sub$3/;
- print "file $srcName: changed include $includePath --> $_";
+ print "file $srcName: changed include $includePath\n\t--> $_";
#print "Change $dup to $_";
}
}
---------------------------------------------------------------------
To unsubscribe, e-mail: xerces-cvs-unsubscribe@xml.apache.org
For additional commands, e-mail: xerces-cvs-help@xml.apache.org