File tree Expand file tree Collapse file tree 1 file changed +16
-0
lines changed Expand file tree Collapse file tree 1 file changed +16
-0
lines changed Original file line number Diff line number Diff line change @@ -981,13 +981,29 @@ sub req_update
981
981
982
982
# $log->debug("update state : " . Dumper($state));
983
983
984
+ my $last_dirname = " ///" ;
985
+
984
986
# foreach file specified on the command line ...
985
987
foreach my $filename ( @{$state -> {args }} )
986
988
{
987
989
$filename = filecleanup($filename );
988
990
989
991
$log -> debug(" Processing file $filename " );
990
992
993
+ unless ( $state -> {globaloptions }{-Q} || $state -> {globaloptions }{-q} )
994
+ {
995
+ my $cur_dirname = dirname($filename);
996
+ if ( $cur_dirname ne $last_dirname )
997
+ {
998
+ $last_dirname = $cur_dirname;
999
+ if ( $cur_dirname eq "" )
1000
+ {
1001
+ $cur_dirname = ".";
1002
+ }
1003
+ print " E cvs update: Updating $cur_dirname \n " ;
1004
+ }
1005
+ }
1006
+
991
1007
# if we have a -C we should pretend we never saw modified stuff
992
1008
if ( exists ( $state -> {opt }{C } ) )
993
1009
{
You can’t perform that action at this time.
0 commit comments