|
@@ -23,6 +23,7 @@ our @EXPORT_OK = qw(
|
|
|
our @EXPORT = qw(
|
|
our @EXPORT = qw(
|
|
|
report_options
|
|
report_options
|
|
|
info
|
|
info
|
|
|
|
|
+ notice
|
|
|
warning
|
|
warning
|
|
|
error
|
|
error
|
|
|
errormsg
|
|
errormsg
|
|
@@ -64,6 +65,11 @@ sub info($;@)
|
|
|
print { $info_fh } report(g_('info'), @_) if (!$quiet_warnings);
|
|
print { $info_fh } report(g_('info'), @_) if (!$quiet_warnings);
|
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
+sub notice
|
|
|
|
|
+{
|
|
|
|
|
+ warn report(g_('notice'), @_) if not $quiet_warnings;
|
|
|
|
|
+}
|
|
|
|
|
+
|
|
|
sub warning($;@)
|
|
sub warning($;@)
|
|
|
{
|
|
{
|
|
|
warn report(g_('warning'), @_) if (!$quiet_warnings);
|
|
warn report(g_('warning'), @_) if (!$quiet_warnings);
|