Dpkg: Remove my keyword from POD function prototypes

debian/changelog

@@ -14,6 +14,7 @@ dpkg (1.18.2) UNRELEASED; urgency=low
     - Clarify that an architecture wildcard is a Debian thing in
       dpkg-architecture(1).
     - Document multiarch triplet in dpkg-architecture(1) TERMS section.
+    - Remove “my” keyword from Dpkg perl modules function prototypes.
 
   [ Updated programs translations ]
   * Dutch (Frans Spiesschaert). Closes: #789097

scripts/Dpkg/BuildEnv.pm

@@ -78,7 +78,7 @@ sub has {
     return exists $ENV{$varname};
 }
 
-=item my @list = $bf->list_accessed()
+=item @list = $bf->list_accessed()
 
 Returns a list of all environment variables that have been accessed.
 
@@ -89,7 +89,7 @@ sub list_accessed {
     return @list;
 }
 
-=item my @list = $bf->list_modified()
+=item @list = $bf->list_modified()
 
 Returns a list of all environment variables that have been modified.
 

scripts/Dpkg/BuildFlags.pm

@@ -42,7 +42,7 @@ to query the same information.
 
 =over 4
 
-=item my $bf = Dpkg::BuildFlags->new()
+=item $bf = Dpkg::BuildFlags->new()
 
 Create a new Dpkg::BuildFlags object. It will be initialized based
 on the value of several configuration files and environment variables.
@@ -429,7 +429,7 @@ sub has {
     return exists $self->{flags}{$key};
 }
 
-=item my @flags = $bf->list()
+=item @flags = $bf->list()
 
 Returns the list of flags stored in the object.
 

scripts/Dpkg/BuildOptions.pm

@@ -42,7 +42,7 @@ DEB_BUILD_MAINT_OPTIONS.
 
 =over 4
 
-=item my $bo = Dpkg::BuildOptions->new(%opts)
+=item $bo = Dpkg::BuildOptions->new(%opts)
 
 Create a new Dpkg::BuildOptions object. It will be initialized based
 on the value of the environment variable named $opts{envvar} (or

scripts/Dpkg/BuildProfiles.pm

@@ -49,7 +49,7 @@ profiles.
 
 =over 4
 
-=item my @profiles = get_build_profiles()
+=item @profiles = get_build_profiles()
 
 Get an array with the currently active build profiles, taken from
 the environment variable B<DEB_BUILD_PROFILES>.
@@ -82,7 +82,7 @@ sub set_build_profiles {
     Dpkg::BuildEnv::set('DEB_BUILD_PROFILES', join ' ', @profiles);
 }
 
-=item my @profiles = parse_build_profiles($string)
+=item @profiles = parse_build_profiles($string)
 
 Parses a build profiles specification, into an array of array references.
 

scripts/Dpkg/Changelog.pm

@@ -54,7 +54,7 @@ use overload
 
 =over 4
 
-=item my $c = Dpkg::Changelog->new(%options)
+=item $c = Dpkg::Changelog->new(%options)
 
 Creates a new changelog object.
 
@@ -471,7 +471,7 @@ sub output {
     return $str;
 }
 
-=item my $control = $c->dpkg($range)
+=item $control = $c->dpkg($range)
 
 Returns a Dpkg::Control::Changelog object representing the entries selected
 by the optional range specifier (see L<"RANGE SELECTION"> for details).
@@ -578,7 +578,7 @@ sub dpkg {
     return $f;
 }
 
-=item my @controls = $c->rfc822($range)
+=item @controls = $c->rfc822($range)
 
 Returns a Dpkg::Index containing Dpkg::Control::Changelog objects where
 each object represents one entry in the changelog that is part of the

scripts/Dpkg/Changelog/Entry.pm

@@ -47,7 +47,7 @@ trailer line. Blank lines can be between those kind of lines.
 
 =over 4
 
-=item my $entry = Dpkg::Changelog::Entry->new()
+=item $entry = Dpkg::Changelog::Entry->new()
 
 Creates a new object. It doesn't represent a real changelog entry
 until one has been successfully parsed or built from scratch.
@@ -70,7 +70,7 @@ sub new {
     return $self;
 }
 
-=item my $str = $entry->output()
+=item $str = $entry->output()
 
 =item "$entry"
 
@@ -210,7 +210,7 @@ sub normalize {
     }
 }
 
-=item my $src = $entry->get_source()
+=item $src = $entry->get_source()
 
 Return the name of the source package associated to the changelog entry.
 
@@ -220,7 +220,7 @@ sub get_source {
     return;
 }
 
-=item my $ver = $entry->get_version()
+=item $ver = $entry->get_version()
 
 Return the version associated to the changelog entry.
 
@@ -230,7 +230,7 @@ sub get_version {
     return;
 }
 
-=item my @dists = $entry->get_distributions()
+=item @dists = $entry->get_distributions()
 
 Return a list of target distributions for this version.
 
@@ -261,7 +261,7 @@ sub get_urgency {
     return;
 }
 
-=item my $maint = $entry->get_maintainer()
+=item $maint = $entry->get_maintainer()
 
 Return the string identifying the person who signed this changelog entry.
 
@@ -271,7 +271,7 @@ sub get_maintainer {
     return;
 }
 
-=item my $time = $entry->get_timestamp()
+=item $time = $entry->get_timestamp()
 
 Return the timestamp of the changelog entry.
 
@@ -281,7 +281,7 @@ sub get_timestamp {
     return;
 }
 
-=item my $str = $entry->get_dpkg_changes()
+=item $str = $entry->get_dpkg_changes()
 
 Returns a string that is suitable for usage in a C<Changes> field
 in the output format of C<dpkg-parsechangelog>.

scripts/Dpkg/Changelog/Entry/Debian.pm

@@ -72,7 +72,7 @@ our $regex_trailer = qr/^ \-\- (.*) <(.*)>(  ?)((\w+\,\s*)?\d{1,2}\s+\w+\s+\d{4}
 
 =over 4
 
-=item my @items = $entry->get_change_items()
+=item @items = $entry->get_change_items()
 
 Return a list of change items. Each item contains at least one line.
 A change line starting with an asterisk denotes the start of a new item.
@@ -109,9 +109,9 @@ sub get_change_items {
     return @items;
 }
 
-=item my @errors = $entry->check_header()
+=item @errors = $entry->check_header()
 
-=item my @errors = $entry->check_trailer()
+=item @errors = $entry->check_trailer()
 
 Return a list of errors. Each item in the list is an error message
 describing the problem. If the empty list is returned, no errors
@@ -265,7 +265,7 @@ sub get_timestamp {
 
 =over 4
 
-=item my $bool = match_header($line)
+=item $bool = match_header($line)
 
 Checks if the line matches a valid changelog header line.
 
@@ -277,7 +277,7 @@ sub match_header {
     return $line =~ /$regex_header/;
 }
 
-=item my $bool = match_trailer($line)
+=item $bool = match_trailer($line)
 
 Checks if the line matches a valid changelog trailing line.
 
@@ -289,7 +289,7 @@ sub match_trailer {
     return $line =~ /$regex_trailer/;
 }
 
-=item my @closed_bugs = find_closes($changes)
+=item @closed_bugs = find_closes($changes)
 
 Takes one string as argument and finds "Closes: #123456, #654321" statements
 as supported by the Debian Archive software in it. Returns all closed bug

scripts/Dpkg/Changelog/Parse.pm

@@ -49,7 +49,7 @@ use Dpkg::Control::Changelog;
 
 =over 4
 
-=item my $fields = changelog_parse(%opt)
+=item $fields = changelog_parse(%opt)
 
 This function will parse a changelog. In list context, it return as many
 Dpkg::Control object as the parser did output. In scalar context, it will

scripts/Dpkg/Checksums.pm

@@ -113,7 +113,7 @@ sub checksums_get_property($$) {
 
 =over 4
 
-=item my $ck = Dpkg::Checksums->new()
+=item $ck = Dpkg::Checksums->new()
 
 Create a new Dpkg::Checksums object. This object is able to store
 the checksums of several files to later export them or verify them.

scripts/Dpkg/Compression.pm

@@ -92,7 +92,7 @@ our $compression_re_file_ext = qr/(?:$regex)/;
 
 =over 4
 
-=item my @list = compression_get_list()
+=item @list = compression_get_list()
 
 Returns a list of supported compression methods (sorted alphabetically).
 
@@ -152,7 +152,7 @@ sub compression_guess_from_filename {
     return;
 }
 
-=item my $regex = compression_get_file_extension_regex()
+=item $regex = compression_get_file_extension_regex()
 
 Returns a regex that matches a file extension of a file compressed with
 one of the supported compression methods.
@@ -163,7 +163,7 @@ sub compression_get_file_extension_regex {
     return $compression_re_file_ext;
 }
 
-=item my $comp = compression_get_default()
+=item $comp = compression_get_default()
 
 Return the default compression method. It is "xz" unless
 C<compression_set_default> has been used to change it.
@@ -186,7 +186,7 @@ sub compression_set_default {
     $default_compression = $method;
 }
 
-=item my $level = compression_get_default_level()
+=item $level = compression_get_default_level()
 
 Return the default compression level used when compressing data. It's "9"
 for "gzip" and "bzip2", "6" for "xz" and "lzma", unless

scripts/Dpkg/Compression/FileHandle.pm

@@ -109,7 +109,7 @@ may be exceptions though.
 
 =over 4
 
-=item my $fh = Dpkg::Compression::FileHandle->new(%opts)
+=item $fh = Dpkg::Compression::FileHandle->new(%opts)
 
 Creates a new filehandle supporting on-the-fly compression/decompression.
 Supported options are "filename", "compression", "compression_level" (see
@@ -325,7 +325,7 @@ sub set_filename {
     }
 }
 
-=item my $file = $fh->get_filename()
+=item $file = $fh->get_filename()
 
 Returns the filename that would be used when the filehandle must
 be opened (both in read and write mode). This function errors out
@@ -374,7 +374,7 @@ sub use_compression {
     return $comp;
 }
 
-=item my $real_fh = $fh->get_filehandle()
+=item $real_fh = $fh->get_filehandle()
 
 Returns the real underlying filehandle. Useful if you want to pass it
 along in a derived object.

scripts/Dpkg/Compression/Process.pm

@@ -42,7 +42,7 @@ compression/decompression processes.
 
 =over 4
 
-=item my $proc = Dpkg::Compression::Process->new(%opts)
+=item $proc = Dpkg::Compression::Process->new(%opts)
 
 Create a new instance of the object. Supported options are "compression"
 and "compression_level" (see corresponding set_* functions).
@@ -90,9 +90,9 @@ sub set_compression_level {
     $self->{compression_level} = $level;
 }
 
-=item my @exec = $proc->get_compress_cmdline()
+=item @exec = $proc->get_compress_cmdline()
 
-=item my @exec = $proc->get_uncompress_cmdline()
+=item @exec = $proc->get_uncompress_cmdline()
 
 Returns a list ready to be passed to C<exec>, its first element is the
 program name (either for compression or decompression) and the following

scripts/Dpkg/Conf.pm

@@ -44,7 +44,7 @@ file. It can exports an array that can then be parsed exactly like @ARGV.
 
 =over 4
 
-=item my $conf = Dpkg::Conf->new(%opts)
+=item $conf = Dpkg::Conf->new(%opts)
 
 Create a new Dpkg::Conf object. Some options can be set through %opts:
 if allow_short evaluates to true (it defaults to false), then short

scripts/Dpkg/Control.pm

@@ -120,7 +120,7 @@ are either new or overridden with a different behaviour.
 
 =over 4
 
-=item my $c = Dpkg::Control->new(%opts)
+=item $c = Dpkg::Control->new(%opts)
 
 If the "type" option is given, it's used to setup default values
 for other options. See set_options() for more details.

scripts/Dpkg/Control/FieldsCore.pm

@@ -416,7 +416,7 @@ CTRL_* constants exported by Dpkg::Control.
 
 =over 4
 
-=item my $f = field_capitalize($field_name)
+=item $f = field_capitalize($field_name)
 
 Returns the field name properly capitalized. All characters are lowercase,
 except the first of each word (words are separated by a hyphen in field names).

scripts/Dpkg/Control/HashCore.pm

@@ -65,7 +65,7 @@ spaces are stripped only on the first line of each field.
 
 =over 4
 
-=item my $c = Dpkg::Control::Hash->new(%opts)
+=item $c = Dpkg::Control::Hash->new(%opts)
 
 Creates a new object with the indicated options. Supported options
 are:
@@ -149,7 +149,7 @@ sub set_options {
     $$self->{$_} = $opts{$_} foreach keys %opts;
 }
 
-=item my $value = $c->get_option($option)
+=item $value = $c->get_option($option)
 
 Returns the value of the corresponding option.
 
@@ -309,7 +309,7 @@ sub get_custom_field {
 Write the string representation of the control information to a
 file.
 
-=item my $str = $c->output()
+=item $str = $c->output()
 
 =item "$c"
 

scripts/Dpkg/Deps.pm

@@ -159,7 +159,7 @@ sub deps_eval_implication {
     return;
 }
 
-=item my $dep = deps_concat(@dep_list)
+=item $dep = deps_concat(@dep_list)
 
 This function concatenates multiple dependency lines into a single line,
 joining them with ", " if appropriate, and always returning a valid string.
@@ -172,7 +172,7 @@ sub deps_concat {
     return join ', ', grep { defined } @dep_list;
 }
 
-=item my $dep = deps_parse($line, %options)
+=item $dep = deps_parse($line, %options)
 
 This function parses the dependency line and returns an object, either a
 Dpkg::Deps::AND or a Dpkg::Deps::Union. Various options can alter the
@@ -315,7 +315,7 @@ sub deps_parse {
     return $dep_and;
 }
 
-=item my $bool = deps_iterate($deps, $callback_func)
+=item $bool = deps_iterate($deps, $callback_func)
 
 This function visits all elements of the dependency object, calling the
 callback function for each element.
@@ -1302,7 +1302,7 @@ packages provided (by the set of installed packages).
 
 =over 4
 
-=item my $facts = Dpkg::Deps::KnownFacts->new();
+=item $facts = Dpkg::Deps::KnownFacts->new();
 
 Creates a new object.
 
@@ -1365,7 +1365,7 @@ sub add_provided_package {
     push @{$self->{virtualpkg}{$pkg}}, [ $by, $rel, $ver ];
 }
 
-=item my ($check, $param) = $facts->check_package($package)
+=item ($check, $param) = $facts->check_package($package)
 
 $check is one when the package is found. For a real package, $param
 contains the version. For a virtual package, $param contains an array

scripts/Dpkg/Gettext.pm

@@ -73,17 +73,17 @@ our $DEFAULT_TEXT_DOMAIN = 'dpkg-dev';
 
 =over 4
 
-=item my $trans = g_($msgid)
+=item $trans = g_($msgid)
 
 Calls dgettext() on the $msgid and returns its translation for the current
 locale. If dgettext() is not available, simply returns $msgid.
 
-=item my $trans = C_($msgctxt, $msgid)
+=item $trans = C_($msgctxt, $msgid)
 
 Calls dgettext() on the $msgid and returns its translation for the specific
 $msgctxt supplied. If dgettext() is not available, simply returns $msgid.
 
-=item my $trans = P_($msgid, $msgid_plural, $n)
+=item $trans = P_($msgid, $msgid_plural, $n)
 
 Calls dngettext(), returning the correct translation for the plural form
 dependent on $n. If dngettext() is not available, returns $msgid if $n is 1

scripts/Dpkg/IPC.pm

@@ -49,7 +49,7 @@ from you.
 
 =over 4
 
-=item my $pid = spawn(%opts)
+=item $pid = spawn(%opts)
 
 Creates a child process and executes another program in it.
 The arguments are interpreted as a hash of options, specifying

scripts/Dpkg/Index.pm

@@ -44,7 +44,7 @@ This object represent a set of Dpkg::Control objects.
 
 =over 4
 
-=item my $index = Dpkg::Index->new(%opts)
+=item $index = Dpkg::Index->new(%opts)
 
 Creates a new empty index. See set_options() for more details.
 
@@ -178,7 +178,7 @@ sub parse {
 Writes the content of the index in a file. Auto-compresses files
 based on their extensions.
 
-=item my $item = $index->new_item()
+=item $item = $index->new_item()
 
 Creates a new item. Mainly useful for derived objects that would want
 to override this method to return something else than a Dpkg::Control
@@ -191,7 +191,7 @@ sub new_item {
     return Dpkg::Control->new(type => $self->{type});
 }
 
-=item my $item = $index->get_by_key($key)
+=item $item = $index->get_by_key($key)
 
 Returns the item identified by $key or undef.
 
@@ -203,7 +203,7 @@ sub get_by_key {
     return;
 }
 
-=item my @keys = $index->get_keys(%criteria)
+=item @keys = $index->get_keys(%criteria)
 
 Returns the keys of items that matches all the criteria. The key of the
 %criteria hash is a field name and the value is either a regex that needs
@@ -234,7 +234,7 @@ sub get_keys {
     return @selected;
 }
 
-=item my @items = $index->get(%criteria)
+=item @items = $index->get(%criteria)
 
 Returns all the items that matches all the criteria.
 
@@ -257,7 +257,7 @@ sub remove_by_key {
     return delete $self->{items}{$key};
 }
 
-=item my @items = $index->remove(%criteria)
+=item @items = $index->remove(%criteria)
 
 Returns and removes all the items that matches all the criteria.
 
@@ -312,7 +312,7 @@ sub sort {
     }
 }
 
-=item my $str = $index->output()
+=item $str = $index->output()
 
 =item "$index"
 

scripts/Dpkg/Path.pm

@@ -203,7 +203,7 @@ sub resolve_symlink($) {
 }
 
 
-=item my $cmdpath = find_command($command)
+=item $cmdpath = find_command($command)
 
 Return the path of the command if defined and available on an absolute or
 relative path or on the $PATH, undef otherwise.
@@ -224,12 +224,12 @@ sub find_command($) {
     return;
 }
 
-=item my $control_file = get_control_path($pkg, $filetype)
+=item $control_file = get_control_path($pkg, $filetype)
 
 Return the path of the control file of type $filetype for the given
 package.
 
-=item my @control_files = get_control_path($pkg)
+=item @control_files = get_control_path($pkg)
 
 Return the path of all available control files for the given package.
 
@@ -250,14 +250,14 @@ sub get_control_path($;$) {
     return split(/\n/, $control_file);
 }
 
-=item my $file = find_build_file($basename)
+=item $file = find_build_file($basename)
 
 Selects the right variant of the given file: the arch-specific variant
 ("$basename.$arch") has priority over the OS-specific variant
 ("$basename.$os") which has priority over the default variant
 ("$basename"). If none of the files exists, then it returns undef.
 
-=item my @files = find_build_file($basename)
+=item @files = find_build_file($basename)
 
 Return the available variants of the given file. Returns an empty
 list if none of the files exists.

scripts/Dpkg/Source/Package.pm

@@ -126,7 +126,7 @@ _darcs
 
 =over 4
 
-=item my $string = get_default_diff_ignore_regex()
+=item $string = get_default_diff_ignore_regex()
 
 Returns the default diff ignore regex.
 
@@ -148,7 +148,7 @@ sub set_default_diff_ignore_regex {
     $diff_ignore_default_regex = $regex;
 }
 
-=item my @array = get_default_tar_ignore_pattern()
+=item @array = get_default_tar_ignore_pattern()
 
 Returns the default tar ignore pattern, as an array.
 

scripts/Dpkg/Substvars.pm

@@ -56,7 +56,7 @@ use constant {
 
 =over 8
 
-=item my $s = Dpkg::Substvars->new($file)
+=item $s = Dpkg::Substvars->new($file)
 
 Create a new object that can do substitutions. By default it contains
 generic substitutions like ${Newline}, ${Space}, ${Tab}, ${dpkg:Version}

scripts/Dpkg/Version.pm

@@ -76,7 +76,7 @@ them.
 
 =over 4
 
-=item my $v = Dpkg::Version->new($version, %opts)
+=item $v = Dpkg::Version->new($version, %opts)
 
 Create a new Dpkg::Version object corresponding to the version indicated in
 the string (scalar) $version. By default it will accepts any string
@@ -278,7 +278,7 @@ sub version_compare_relation($$$) {
     }
 }
 
-=item my $rel = version_normalize_relation($rel_string)
+=item $rel = version_normalize_relation($rel_string)
 
 Returns the normalized constant of the relation $rel (a value
 among REL_GT, REL_GE, REL_EQ, REL_LE and REL_LT). Supported
@@ -380,7 +380,7 @@ sub version_compare_part($$) {
     }
 }
 
-=item my @items = version_split_digits($version)
+=item @items = version_split_digits($version)
 
 Splits a string in items that are each entirely composed either
 of digits or of non-digits. For instance for "1.024~beta1+svn234" it would
@@ -394,9 +394,9 @@ sub version_split_digits($) {
     return split /(?<=\d)(?=\D)|(?<=\D)(?=\d)/, $version;
 }
 
-=item my ($ok, $msg) = version_check($version)
+=item ($ok, $msg) = version_check($version)
 
-=item my $ok = version_check($version)
+=item $ok = version_check($version)
 
 Checks the validity of $version as a version number. Returns 1 in $ok
 if the version is valid, 0 otherwise. In the latter case, $msg