|
|
@@ -5,7 +5,7 @@ use Dpkg::Gettext;
|
|
|
|
|
|
use base qw(Exporter);
|
|
|
our @EXPORT_OK = qw(warning warnerror error failure unknown syserr internerr
|
|
|
- subprocerr usageerr syntaxerr report
|
|
|
+ subprocerr usageerr syntaxerr report info
|
|
|
$warnable_error $quiet_warnings);
|
|
|
|
|
|
our $warnable_error = 1;
|
|
|
@@ -19,6 +19,11 @@ sub report(@)
|
|
|
return "$progname: $type: $msg\n";
|
|
|
}
|
|
|
|
|
|
+sub info($;@)
|
|
|
+{
|
|
|
+ print report(_g("info"), @_) if (!$quiet_warnings);
|
|
|
+}
|
|
|
+
|
|
|
sub warning($;@)
|
|
|
{
|
|
|
warn report(_g("warning"), @_) if (!$quiet_warnings);
|