Przeglądaj źródła

Update POD documentation to indicate that it's using UTF-8 encoding

Also fix many spelling errors spotted by lintian.
Raphaël Hertzog 16 lat temu
rodzic
commit
0934601905

+ 2 - 0
scripts/Dpkg/BuildOptions.pm

@@ -24,6 +24,8 @@ our $VERSION = "1.00";
 use Dpkg::Gettext;
 use Dpkg::ErrorHandling;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::BuildOptions - parse and update build options

+ 2 - 0
scripts/Dpkg/Changelog.pm

@@ -14,6 +14,8 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Changelog - base class to implement a changelog parser

+ 2 - 0
scripts/Dpkg/Changelog/Debian.pm

@@ -15,6 +15,8 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Changelog::Debian - parse Debian changelogs

+ 2 - 0
scripts/Dpkg/Changelog/Entry.pm

@@ -29,6 +29,8 @@ use overload
     'eq' => sub { defined($_[1]) and "$_[0]" eq "$_[1]" },
     fallback => 1;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Changelog::Entry - represents a changelog entry

+ 2 - 0
scripts/Dpkg/Changelog/Entry/Debian.pm

@@ -31,6 +31,8 @@ use Dpkg::Gettext;
 use Dpkg::Control::Changelog;
 use Dpkg::Version;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Changelog::Entry::Debian - represents a Debian changelog entry

+ 4 - 2
scripts/Dpkg/Changelog/Parse.pm

@@ -14,6 +14,8 @@
 #    You should have received a copy of the GNU General Public License
 #    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Changelog::Parse - generic changelog parser for dpkg-parsechangelog
@@ -56,12 +58,12 @@ following list of directories: $opt{libdir},
 program is named according to the format that it's able to parse. By
 default it's either "debian" or the format name lookep up in the 40 last
 lines of the changelog itself (extracted with this perl regular expression
-"\schangelog-format:\s+([0-9a-z]+)\W"). But it can be overriden
+"\schangelog-format:\s+([0-9a-z]+)\W"). But it can be overridden
 with $opt{changelogformat}. The program expects the content of the
 changelog file on its standard input.
 
 The changelog file that is parsed is debian/changelog by default but it
-can be overriden with $opt{file}.
+can be overridden with $opt{file}.
 
 All the other keys in %opt are forwarded as parameter to the external
 parser. If the key starts with "-", it's passed as is. If not, it's passed

+ 2 - 0
scripts/Dpkg/Checksums.pm

@@ -30,6 +30,8 @@ use base qw(Exporter);
 our @EXPORT = qw(checksums_get_list checksums_is_supported
 		 checksums_get_property);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Checksums - generate and manipulate file checksums

+ 2 - 0
scripts/Dpkg/Compression.pm

@@ -32,6 +32,8 @@ our @EXPORT = qw($compression_re_file_ext compression_get_list
 		 compression_set_default_level
 		 compression_is_valid_level);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Compression - simple database of available compression methods

+ 3 - 1
scripts/Dpkg/Compression/FileHandle.pm

@@ -32,6 +32,8 @@ use base qw(FileHandle Tie::Handle);
 # have the object behave like a filehandle
 # http://blog.woobling.org/2009/10/are-filehandles-objects.html
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Compression::FileHandle - object dealing transparently with file compression
@@ -75,7 +77,7 @@ like any filehandle and that deals transparently with compressed
 files. By default, the compression scheme is guessed from the filename
 but you can override this behaviour with the method C<set_compression>.
 
-If you don't open the file explicitely, it will be auto-opened on the
+If you don't open the file explicitly, it will be auto-opened on the
 first read or write operation based on the filename set at creation time
 (or later with the C<set_filename> method).
 

+ 2 - 0
scripts/Dpkg/Compression/Process.pm

@@ -25,6 +25,8 @@ use Dpkg::ErrorHandling;
 use Dpkg::Gettext;
 use Dpkg::IPC;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Compression::Process - run compression/decompression processes

+ 2 - 0
scripts/Dpkg/Conf.pm

@@ -29,6 +29,8 @@ use overload
     '@{}' => sub { return [ $_[0]->get_options() ] },
     fallback => 1;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Conf - parse dpkg configuration files

+ 3 - 1
scripts/Dpkg/Control.pm

@@ -31,6 +31,8 @@ our @EXPORT = qw(CTRL_UNKNOWN CTRL_INFO_SRC CTRL_INFO_PKG CTRL_INDEX_SRC
                  CTRL_INDEX_PKG CTRL_PKG_SRC CTRL_PKG_DEB CTRL_FILE_CHANGES
                  CTRL_FILE_VENDOR CTRL_FILE_STATUS CTRL_CHANGELOG);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Control - parse and manipulate official control-like information
@@ -102,7 +104,7 @@ Corresponds to the output of dpkg-parsechangelog.
 =head1 FUNCTIONS
 
 All the methods of Dpkg::Control::Hash are available. Those listed below
-are either new or overriden with a different behaviour.
+are either new or overridden with a different behaviour.
 
 =over 4
 

+ 2 - 0
scripts/Dpkg/Control/Changelog.pm

@@ -23,6 +23,8 @@ our $VERSION = "1.00";
 use Dpkg::Control;
 use base 'Dpkg::Control';
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Control::Changelog - represent info fields output by dpkg-parsechangelog

+ 2 - 0
scripts/Dpkg/Control/Fields.pm

@@ -328,6 +328,8 @@ foreach my $op (run_vendor_hook("register-custom-fields")) {
     }
 }
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Control::Fields - manage (list of official) control fields

+ 4 - 2
scripts/Dpkg/Control/Hash.pm

@@ -34,6 +34,8 @@ use overload
     '%{}' => sub { ${$_[0]}->{'fields'} },
     'eq' => sub { "$_[0]" eq "$_[1]" };
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Control::Hash - parse and manipulate a block of RFC822-like fields
@@ -46,7 +48,7 @@ capitalized the same when output (see field_capitalize function in
 Dpkg::Control::Fields).
 The order in which fields have been set is remembered and is used
 to be able to dump back the same content. The output order can also be
-overriden if needed.
+overridden if needed.
 
 You can store arbitrary values in the hash, they will always be properly
 escaped in the output to conform to the syntax of control files. This is
@@ -260,7 +262,7 @@ file.
 
 Get a string representation of the control information. The fields
 are sorted in the order in which they have been read or set except
-if the order has been overriden with set_output_order().
+if the order has been overridden with set_output_order().
 
 =item $c->output($fh)
 

+ 2 - 0
scripts/Dpkg/Control/Info.pm

@@ -29,6 +29,8 @@ use base qw(Dpkg::Interface::Storable);
 use overload
     '@{}' => sub { return [ $_[0]->{source}, @{$_[0]->{packages}} ] };
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Control::Info - parse files like debian/control

+ 2 - 0
scripts/Dpkg/Control/Types.pm

@@ -18,6 +18,8 @@ our @EXPORT = qw(CTRL_UNKNOWN CTRL_INFO_SRC CTRL_INFO_PKG CTRL_INDEX_SRC
                  CTRL_INDEX_PKG CTRL_PKG_SRC CTRL_PKG_DEB CTRL_FILE_CHANGES
                  CTRL_FILE_VENDOR CTRL_FILE_STATUS CTRL_CHANGELOG);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Control::Types - export CTRL_* constants

+ 2 - 0
scripts/Dpkg/Deps.pm

@@ -23,6 +23,8 @@
 
 package Dpkg::Deps;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Deps - parse and manipulate dependencies of Debian packages

+ 3 - 1
scripts/Dpkg/IPC.pm

@@ -27,6 +27,8 @@ use Dpkg::Gettext;
 use base qw(Exporter);
 our @EXPORT = qw(spawn wait_child);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::IPC - helper functions for IPC
@@ -71,7 +73,7 @@ Mandatory Option.
 =item from_file, to_file, error_to_file
 
 Filename as scalar. Standard input/output/error of the
-child process will be redirected to the file specifed.
+child process will be redirected to the file specified.
 
 =item from_handle, to_handle, error_to_handle
 

+ 2 - 0
scripts/Dpkg/Index.pm

@@ -31,6 +31,8 @@ use overload
     '@{}' => sub { return $_[0]->{'order'} },
     fallback => 1;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Index - generic index of control information

+ 2 - 0
scripts/Dpkg/Interface/Storable.pm

@@ -28,6 +28,8 @@ use overload
     '""' => \&_stringify,
     'fallback' => 1;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Interface::Storable - common methods related to object serialization

+ 2 - 0
scripts/Dpkg/Path.pm

@@ -27,6 +27,8 @@ our @EXPORT_OK = qw(get_pkg_root_dir relative_to_pkg_root
 		    guess_pkg_root_dir check_files_are_the_same
 		    resolve_symlink canonpath);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Path - some common path handling functions

+ 2 - 0
scripts/Dpkg/Substvars.pm

@@ -31,6 +31,8 @@ use base qw(Dpkg::Interface::Storable);
 
 my $maxsubsts = 50;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Substvars - handle variable substitution in strings

+ 2 - 0
scripts/Dpkg/Vendor.pm

@@ -28,6 +28,8 @@ use base qw(Exporter);
 our @EXPORT_OK = qw(get_vendor_info get_current_vendor get_vendor_file
                     get_vendor_object run_vendor_hook);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Vendor - get access to some vendor specific information

+ 2 - 0
scripts/Dpkg/Vendor/Debian.pm

@@ -24,6 +24,8 @@ use base qw(Dpkg::Vendor::Default);
 use Dpkg::Control::Types;
 use Dpkg::Vendor::Ubuntu;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Vendor::Debian - Debian vendor object

+ 2 - 0
scripts/Dpkg/Vendor/Default.pm

@@ -24,6 +24,8 @@ our $VERSION = "0.01";
 # uncomment the following lines
 #use base qw(Dpkg::Vendor::Default);
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Vendor::Default - default vendor object

+ 2 - 0
scripts/Dpkg/Vendor/Ubuntu.pm

@@ -30,6 +30,8 @@ use Dpkg::Control::Types;
 
 use base 'Dpkg::Vendor::Debian';
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Vendor::Ubuntu - Ubuntu vendor object

+ 2 - 0
scripts/Dpkg/Version.pm

@@ -47,6 +47,8 @@ use overload
     'bool' => sub { return $_[0]->is_valid(); },
     'fallback' => 1;
 
+=encoding utf8
+
 =head1 NAME
 
 Dpkg::Version - handling and comparing dpkg-style version numbers