Преглед изворни кода

dpkg-scanpackages: rename --extraoverride into --extra-override

Also fix the help output to be properly indented and fix
load_extra_override() to use its parameter.
Raphaël Hertzog пре 17 година
родитељ
комит
d2d24e8b2f
3 измењених фајлова са 11 додато и 9 уклоњено
  1. 1 1
      man/dpkg-scanpackages.1
  2. 2 2
      man/po/de.po
  3. 8 6
      scripts/dpkg-scanpackages.pl

+ 1 - 1
man/dpkg-scanpackages.1

@@ -78,7 +78,7 @@ Scan for *.\fItype\fP packages, instead of *.deb.
 .BR \-u ", " \-\-udeb
 .BR \-u ", " \-\-udeb
 \fBObsolete\fP alias for \fB-tudeb\fP.
 \fBObsolete\fP alias for \fB-tudeb\fP.
 .TP
 .TP
-.BR \-e ", " \-\-extraoverride " \fIfile\fP"
+.BR \-e ", " \-\-extra\-override " \fIfile\fP"
 Scan \fIfile\fP to find supplementary overrides. Each line contains 3
 Scan \fIfile\fP to find supplementary overrides. Each line contains 3
 space separated fields: package name, field name to override, new field value.
 space separated fields: package name, field name to override, new field value.
 .TP
 .TP

+ 2 - 2
man/po/de.po

@@ -8366,8 +8366,8 @@ msgstr "B<-u>, B<--udeb>"
 msgid "B<Obsolete> alias for B<-tudeb>."
 msgid "B<Obsolete> alias for B<-tudeb>."
 msgstr "B<Veralteter> Alias für B<-tudeb>."
 msgstr "B<Veralteter> Alias für B<-tudeb>."
 
 
-msgid "B<-e>, B<--extraoverride> I<file>"
-msgstr "B<-e>, B<--extraoverride> I<Datei>"
+msgid "B<-e>, B<--extra-override> I<file>"
+msgstr "B<-e>, B<--extra-override> I<Datei>"
 
 
 msgid ""
 msgid ""
 "Scan I<file> to find supplementary overrides. Each line contains 3 space "
 "Scan I<file> to find supplementary overrides. Each line contains 3 space "

+ 8 - 6
scripts/dpkg-scanpackages.pl

@@ -46,12 +46,12 @@ my %options = (help            => sub { usage(); exit 0; },
 	       udeb            => \&set_type_udeb,
 	       udeb            => \&set_type_udeb,
 	       arch            => undef,
 	       arch            => undef,
 	       multiversion    => 0,
 	       multiversion    => 0,
-	       extraoverride   => undef,
+	       'extra-override'=> undef,
 	      );
 	      );
 
 
 my $result = GetOptions(\%options,
 my $result = GetOptions(\%options,
                         'help|h|?', 'version', 'type|t=s', 'udeb|u!',
                         'help|h|?', 'version', 'type|t=s', 'udeb|u!',
-                        'arch|a=s', 'multiversion|m!', 'extraoverride|e=s');
+                        'arch|a=s', 'multiversion|m!', 'extra-override|e=s');
 
 
 sub version {
 sub version {
     printf _g("Debian %s version %s.\n"), $progname, $version;
     printf _g("Debian %s version %s.\n"), $progname, $version;
@@ -67,7 +67,8 @@ Options:
   -u, --udeb               scan for udebs (obsolete alias for -tudeb).
   -u, --udeb               scan for udebs (obsolete alias for -tudeb).
   -a, --arch <arch>        architecture to scan for.
   -a, --arch <arch>        architecture to scan for.
   -m, --multiversion       allow multiple versions of a single package.
   -m, --multiversion       allow multiple versions of a single package.
-  -e, --extraoverride <file> extra override file.
+  -e, --extra-override <file>
+                           use extra override file.
   -h, --help               show this help message.
   -h, --help               show this help message.
       --version            show the version.
       --version            show the version.
 "), $progname;
 "), $progname;
@@ -128,8 +129,9 @@ sub load_override
 
 
 sub load_override_extra
 sub load_override_extra
 {
 {
-    my $override_fh = new IO::File $options{extraoverride}, 'r' or
-        syserr(_g("Couldn't open override file %s"), $options{extraoverride});
+    my $extra_override = shift;
+    my $override_fh = new IO::File $extra_override, 'r' or
+        syserr(_g("Couldn't open override file %s"), $extra_override);
 
 
     while (<$override_fh>) {
     while (<$override_fh>) {
 	s/\#.*//;
 	s/\#.*//;
@@ -256,7 +258,7 @@ FILE:
 close($find_h);
 close($find_h);
 
 
 load_override($override) if defined $override;
 load_override($override) if defined $override;
-load_override_extra($options{extraoverride}) if defined $options{extraoverride};
+load_override_extra($options{'extra-override'}) if defined $options{'extra-override'};
 
 
 my @missingover=();
 my @missingover=();