[Reproducible-commits] [dpkg] 19/90: Dpkg: Remove my keyword from POD function prototypes
Jérémy Bobbio
lunar at moszumanska.debian.org
Sat Aug 29 18:26:09 UTC 2015
This is an automated email from the git hooks/post-receive script.
lunar pushed a commit to branch pu/reproducible_builds
in repository dpkg.
commit 604b44f89f6d4a80a7afae1885eba2f9b1b30e1d
Author: Guillem Jover <guillem at debian.org>
Date: Tue Jun 2 22:39:10 2015 +0200
Dpkg: Remove my keyword from POD function prototypes
---
debian/changelog | 1 +
scripts/Dpkg/BuildEnv.pm | 4 ++--
scripts/Dpkg/BuildFlags.pm | 4 ++--
scripts/Dpkg/BuildOptions.pm | 2 +-
scripts/Dpkg/BuildProfiles.pm | 4 ++--
scripts/Dpkg/Changelog.pm | 6 +++---
scripts/Dpkg/Changelog/Entry.pm | 16 ++++++++--------
scripts/Dpkg/Changelog/Entry/Debian.pm | 12 ++++++------
scripts/Dpkg/Changelog/Parse.pm | 2 +-
scripts/Dpkg/Checksums.pm | 2 +-
scripts/Dpkg/Compression.pm | 8 ++++----
scripts/Dpkg/Compression/FileHandle.pm | 6 +++---
scripts/Dpkg/Compression/Process.pm | 6 +++---
scripts/Dpkg/Conf.pm | 2 +-
scripts/Dpkg/Control.pm | 2 +-
scripts/Dpkg/Control/FieldsCore.pm | 2 +-
scripts/Dpkg/Control/HashCore.pm | 6 +++---
scripts/Dpkg/Deps.pm | 10 +++++-----
scripts/Dpkg/Gettext.pm | 6 +++---
scripts/Dpkg/IPC.pm | 2 +-
scripts/Dpkg/Index.pm | 14 +++++++-------
scripts/Dpkg/Path.pm | 10 +++++-----
scripts/Dpkg/Source/Package.pm | 4 ++--
scripts/Dpkg/Substvars.pm | 2 +-
scripts/Dpkg/Version.pm | 10 +++++-----
25 files changed, 72 insertions(+), 71 deletions(-)
diff --git a/debian/changelog b/debian/changelog
index 4a211ca..1dda2ad 100644
--- a/debian/changelog
+++ b/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
diff --git a/scripts/Dpkg/BuildEnv.pm b/scripts/Dpkg/BuildEnv.pm
index 0de7844..ff8faa1 100644
--- a/scripts/Dpkg/BuildEnv.pm
+++ b/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.
diff --git a/scripts/Dpkg/BuildFlags.pm b/scripts/Dpkg/BuildFlags.pm
index 81ff49d..5aafbf9 100644
--- a/scripts/Dpkg/BuildFlags.pm
+++ b/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.
diff --git a/scripts/Dpkg/BuildOptions.pm b/scripts/Dpkg/BuildOptions.pm
index 7e5ab0e..8ca2859 100644
--- a/scripts/Dpkg/BuildOptions.pm
+++ b/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
diff --git a/scripts/Dpkg/BuildProfiles.pm b/scripts/Dpkg/BuildProfiles.pm
index 9489f43..7816137 100644
--- a/scripts/Dpkg/BuildProfiles.pm
+++ b/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.
diff --git a/scripts/Dpkg/Changelog.pm b/scripts/Dpkg/Changelog.pm
index 6e61116..fb55248 100644
--- a/scripts/Dpkg/Changelog.pm
+++ b/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
diff --git a/scripts/Dpkg/Changelog/Entry.pm b/scripts/Dpkg/Changelog/Entry.pm
index 008764b..2b611bf 100644
--- a/scripts/Dpkg/Changelog/Entry.pm
+++ b/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>.
diff --git a/scripts/Dpkg/Changelog/Entry/Debian.pm b/scripts/Dpkg/Changelog/Entry/Debian.pm
index 577788b..f9d8b2f 100644
--- a/scripts/Dpkg/Changelog/Entry/Debian.pm
+++ b/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
diff --git a/scripts/Dpkg/Changelog/Parse.pm b/scripts/Dpkg/Changelog/Parse.pm
index 58772e6..42e6ca1 100644
--- a/scripts/Dpkg/Changelog/Parse.pm
+++ b/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
diff --git a/scripts/Dpkg/Checksums.pm b/scripts/Dpkg/Checksums.pm
index 93eda0d..00a5f41 100644
--- a/scripts/Dpkg/Checksums.pm
+++ b/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.
diff --git a/scripts/Dpkg/Compression.pm b/scripts/Dpkg/Compression.pm
index b426342..7a7d5a6 100644
--- a/scripts/Dpkg/Compression.pm
+++ b/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
diff --git a/scripts/Dpkg/Compression/FileHandle.pm b/scripts/Dpkg/Compression/FileHandle.pm
index 3f83545..2756a66 100644
--- a/scripts/Dpkg/Compression/FileHandle.pm
+++ b/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.
diff --git a/scripts/Dpkg/Compression/Process.pm b/scripts/Dpkg/Compression/Process.pm
index cc1fe4d..ca4f1d4 100644
--- a/scripts/Dpkg/Compression/Process.pm
+++ b/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
diff --git a/scripts/Dpkg/Conf.pm b/scripts/Dpkg/Conf.pm
index 00cee23..77e2b3a 100644
--- a/scripts/Dpkg/Conf.pm
+++ b/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
diff --git a/scripts/Dpkg/Control.pm b/scripts/Dpkg/Control.pm
index 7094f35..27b9270 100644
--- a/scripts/Dpkg/Control.pm
+++ b/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.
diff --git a/scripts/Dpkg/Control/FieldsCore.pm b/scripts/Dpkg/Control/FieldsCore.pm
index 82e1a72..1c6a764 100644
--- a/scripts/Dpkg/Control/FieldsCore.pm
+++ b/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).
diff --git a/scripts/Dpkg/Control/HashCore.pm b/scripts/Dpkg/Control/HashCore.pm
index 1ff87ea..3a7b551 100644
--- a/scripts/Dpkg/Control/HashCore.pm
+++ b/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"
diff --git a/scripts/Dpkg/Deps.pm b/scripts/Dpkg/Deps.pm
index 1823340..fecfee4 100644
--- a/scripts/Dpkg/Deps.pm
+++ b/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
diff --git a/scripts/Dpkg/Gettext.pm b/scripts/Dpkg/Gettext.pm
index 1ec501b..b1f78b3 100644
--- a/scripts/Dpkg/Gettext.pm
+++ b/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
diff --git a/scripts/Dpkg/IPC.pm b/scripts/Dpkg/IPC.pm
index 261c5a6..2845065 100644
--- a/scripts/Dpkg/IPC.pm
+++ b/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
diff --git a/scripts/Dpkg/Index.pm b/scripts/Dpkg/Index.pm
index 7a899d4..03e130a 100644
--- a/scripts/Dpkg/Index.pm
+++ b/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"
diff --git a/scripts/Dpkg/Path.pm b/scripts/Dpkg/Path.pm
index ad8283e..23c81e2 100644
--- a/scripts/Dpkg/Path.pm
+++ b/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.
diff --git a/scripts/Dpkg/Source/Package.pm b/scripts/Dpkg/Source/Package.pm
index 000984e..60ba3e7 100644
--- a/scripts/Dpkg/Source/Package.pm
+++ b/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.
diff --git a/scripts/Dpkg/Substvars.pm b/scripts/Dpkg/Substvars.pm
index b3cb714..66bc401 100644
--- a/scripts/Dpkg/Substvars.pm
+++ b/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}
diff --git a/scripts/Dpkg/Version.pm b/scripts/Dpkg/Version.pm
index 378216c..cffc3ac 100644
--- a/scripts/Dpkg/Version.pm
+++ b/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
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/dpkg.git
More information about the Reproducible-commits
mailing list