Cdiff validate_flg.pl
*** /tmp/validate_flg-no-sccs/webrev/usr/src/tools/scripts/validate_flg.pl- Mon May 22 20:55:33 2006
--- validate_flg.pl Mon May 22 20:51:02 2006
*** 140,149 ****
--- 140,152 ----
}
die "$0: \$CODEMGR_WS must be set\n" if $ENV{CODEMGR_WS} eq "";
chdir $ENV{CODEMGR_WS} or die "$0: chdir $ENV{CODEMGR_WS}: $!\n";
+ # Only check for SCCS files if this is a Teamware workspace.
+ $f_flg = ! -d "$ENV{CODEMGR_WS}/Codemgr_wsdata";
+
File::Find::find({wanted => \&wanted, no_chdir => 1}, $basedir);
# After passing through the tree, process all of the included files.
# There aren't many of these, so don't bother trying to optimize the
# traversal. Just do them all.