Przeglądaj źródła

Dpkg::Errorhandling: Add info function

* scripts/Dpkg/ErrorHandling.pm (info): New
function that outputs to stdout.
Frank Lichtenheld 18 lat temu
rodzic
commit
788892b243
1 zmienionych plików z 6 dodań i 1 usunięć
  1. 6 1
      scripts/Dpkg/ErrorHandling.pm

+ 6 - 1
scripts/Dpkg/ErrorHandling.pm

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