|
|
@@ -5,7 +5,7 @@ use Dpkg::Gettext;
|
|
|
|
|
|
use base qw(Exporter);
|
|
|
our @EXPORT_OK = qw(warning warnerror error failure unknown syserr internerr
|
|
|
- subprocerr usageerr $warnable_error $quiet_warnings);
|
|
|
+ subprocerr usageerr syntaxerr $warnable_error $quiet_warnings);
|
|
|
|
|
|
our $warnable_error = 1;
|
|
|
our $quiet_warnings = 0;
|
|
|
@@ -89,4 +89,9 @@ sub usageerr(@)
|
|
|
exit(2);
|
|
|
}
|
|
|
|
|
|
+sub syntaxerr {
|
|
|
+ my ($file, $msg) = @_;
|
|
|
+ error(_g("syntax error in %s at line %d: %s"), $file, $., $msg);
|
|
|
+}
|
|
|
+
|
|
|
1;
|