X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=cc%2Fetf.pl;h=bae172869d20dc0736a805c5c06e5864d323cace;hb=7ddf095f187ca60d9a70fb83b2bc3c2b6d91f088;hp=8c948c56eb393ee42124a24e1f7c3335780a76a5;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git diff --git a/cc/etf.pl b/cc/etf.pl index 8c948c5..bae1728 100755 --- a/cc/etf.pl +++ b/cc/etf.pl @@ -70,7 +70,7 @@ trigger. TODO: Is cleartool find really needed? I mean since we are going through the extended version namespace don't we by default find all subdirectories? - + This script will use cleartool find to process all directory elements from $startingDir (Default '.'). For each version of the directory a hash will be built up containing all of the element names in that directory version. @@ -167,8 +167,8 @@ sub reportDir (%) { $log->msg ("File: $filename"); foreach (@oids) { - $log->msg ("\tOID: $$_{OID} ($$_{count})"); - $log->msg ("\tFirst detected \@: $$_{version}"); + $log->msg ("\tOID: $$_{OID} ($$_{count})"); + $log->msg ("\tFirst detected \@: $$_{version}"); } # foreach } # if } # foreach @@ -231,7 +231,7 @@ sub processDir ($) { if $directory eq '.'; my $displayName = "$directory$Clearcase::SFX$version"; - + # We only want to deal with branches and numbered versions. Non-numbered # versions which are not branches represent labels and baselines which are # just aliases for directory and file elements. Branches represent recursion @@ -287,7 +287,7 @@ sub processDir ($) { last; } # if } # foreach - + unless ($found) { # If we didn't find a match then make a new %objInfo starting with a # count of 1. Also save this current $version, which is the first @@ -380,7 +380,7 @@ sub processDirs ($) { close $dirs or $log->err ("Unable to close $cmd - $!"); - + return $total{'evil twins'}; } # processDirs @@ -448,12 +448,12 @@ L =begin html
-Clearcase
-Element
-Display
-Logger
-TimeUtils
-Utils
+Clearcase
+Element
+Display
+Logger
+TimeUtils
+Utils
=end html