Commit e236b290 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-12-02 13:30:01 by simonmar]

Only print out the module-version info messages when the -v flag is
on.

Something-similar-requested-ages-ago-by: Sven Panne
parent e5aeb634
...@@ -320,14 +320,16 @@ sub calcNewModuleVersion { ...@@ -320,14 +320,16 @@ sub calcNewModuleVersion {
return(&mv_change($changed_version,"$v changed")) if $Decl{"old:$v"} ne $Decl{"new:$v"}; return(&mv_change($changed_version,"$v changed")) if $Decl{"old:$v"} ne $Decl{"new:$v"};
} }
print STDERR "$Pgm: module version unchanged at $unchanged_version\n"; print STDERR "$Pgm: module version unchanged at $unchanged_version\n"
if $Verbose;
return($unchanged_version); return($unchanged_version);
} }
sub mv_change { sub mv_change {
local($mv, $str) = @_; local($mv, $str) = @_;
print STDERR "$Pgm: module version changed to $mv; reason: $str\n"; print STDERR "$Pgm: module version changed to $mv; reason: $str\n"
if $Verbose;
return($mv); return($mv);
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment