diff options
Diffstat (limited to 'scripts/Dpkg')
28 files changed, 63 insertions, 7 deletions
diff --git a/scripts/Dpkg/BuildOptions.pm b/scripts/Dpkg/BuildOptions.pm index 6cf0fcc75..26380170e 100644 --- a/scripts/Dpkg/BuildOptions.pm +++ b/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 diff --git a/scripts/Dpkg/Changelog.pm b/scripts/Dpkg/Changelog.pm index 89b349097..e0d16931d 100644 --- a/scripts/Dpkg/Changelog.pm +++ b/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 diff --git a/scripts/Dpkg/Changelog/Debian.pm b/scripts/Dpkg/Changelog/Debian.pm index 4d56e8122..2ea302010 100644 --- a/scripts/Dpkg/Changelog/Debian.pm +++ b/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 diff --git a/scripts/Dpkg/Changelog/Entry.pm b/scripts/Dpkg/Changelog/Entry.pm index 3ed6bd624..14691b45c 100644 --- a/scripts/Dpkg/Changelog/Entry.pm +++ b/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 diff --git a/scripts/Dpkg/Changelog/Entry/Debian.pm b/scripts/Dpkg/Changelog/Entry/Debian.pm index 53d3a24a4..3ef8da710 100644 --- a/scripts/Dpkg/Changelog/Entry/Debian.pm +++ b/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 diff --git a/scripts/Dpkg/Changelog/Parse.pm b/scripts/Dpkg/Changelog/Parse.pm index 8b23e7990..399033fe9 100644 --- a/scripts/Dpkg/Changelog/Parse.pm +++ b/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 diff --git a/scripts/Dpkg/Checksums.pm b/scripts/Dpkg/Checksums.pm index 29cf69af4..fd4ba0ccc 100644 --- a/scripts/Dpkg/Checksums.pm +++ b/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 diff --git a/scripts/Dpkg/Compression.pm b/scripts/Dpkg/Compression.pm index 2e190ece1..2d3901c1f 100644 --- a/scripts/Dpkg/Compression.pm +++ b/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 diff --git a/scripts/Dpkg/Compression/FileHandle.pm b/scripts/Dpkg/Compression/FileHandle.pm index e9c975b6d..b0aff7b35 100644 --- a/scripts/Dpkg/Compression/FileHandle.pm +++ b/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). diff --git a/scripts/Dpkg/Compression/Process.pm b/scripts/Dpkg/Compression/Process.pm index c91a2367c..52007813e 100644 --- a/scripts/Dpkg/Compression/Process.pm +++ b/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 diff --git a/scripts/Dpkg/Conf.pm b/scripts/Dpkg/Conf.pm index 6bdee1747..ce72b8f77 100644 --- a/scripts/Dpkg/Conf.pm +++ b/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 diff --git a/scripts/Dpkg/Control.pm b/scripts/Dpkg/Control.pm index 0d320664f..b3b8939cd 100644 --- a/scripts/Dpkg/Control.pm +++ b/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 diff --git a/scripts/Dpkg/Control/Changelog.pm b/scripts/Dpkg/Control/Changelog.pm index 82ed18333..affa096ec 100644 --- a/scripts/Dpkg/Control/Changelog.pm +++ b/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 diff --git a/scripts/Dpkg/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm index f0a17c4b0..ea7d800eb 100644 --- a/scripts/Dpkg/Control/Fields.pm +++ b/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 diff --git a/scripts/Dpkg/Control/Hash.pm b/scripts/Dpkg/Control/Hash.pm index 2633b4f97..9ecf7d346 100644 --- a/scripts/Dpkg/Control/Hash.pm +++ b/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) diff --git a/scripts/Dpkg/Control/Info.pm b/scripts/Dpkg/Control/Info.pm index b0d45af63..93660f43b 100644 --- a/scripts/Dpkg/Control/Info.pm +++ b/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 diff --git a/scripts/Dpkg/Control/Types.pm b/scripts/Dpkg/Control/Types.pm index 640ba65f1..56ddeca17 100644 --- a/scripts/Dpkg/Control/Types.pm +++ b/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 diff --git a/scripts/Dpkg/Deps.pm b/scripts/Dpkg/Deps.pm index 22bd27aef..9d98e5e99 100644 --- a/scripts/Dpkg/Deps.pm +++ b/scripts/Dpkg/Deps.pm @@ -23,6 +23,8 @@ package Dpkg::Deps; +=encoding utf8 + =head1 NAME Dpkg::Deps - parse and manipulate dependencies of Debian packages diff --git a/scripts/Dpkg/IPC.pm b/scripts/Dpkg/IPC.pm index 0186d8983..f89dee130 100644 --- a/scripts/Dpkg/IPC.pm +++ b/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 diff --git a/scripts/Dpkg/Index.pm b/scripts/Dpkg/Index.pm index 23b3f60d9..e59495ac7 100644 --- a/scripts/Dpkg/Index.pm +++ b/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 diff --git a/scripts/Dpkg/Interface/Storable.pm b/scripts/Dpkg/Interface/Storable.pm index fa0043ef9..f0d3b73b4 100644 --- a/scripts/Dpkg/Interface/Storable.pm +++ b/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 diff --git a/scripts/Dpkg/Path.pm b/scripts/Dpkg/Path.pm index 396ec88b8..f8da63498 100644 --- a/scripts/Dpkg/Path.pm +++ b/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 diff --git a/scripts/Dpkg/Substvars.pm b/scripts/Dpkg/Substvars.pm index 2717e7e98..229a41518 100644 --- a/scripts/Dpkg/Substvars.pm +++ b/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 diff --git a/scripts/Dpkg/Vendor.pm b/scripts/Dpkg/Vendor.pm index b3a79d8bb..fb1d34f97 100644 --- a/scripts/Dpkg/Vendor.pm +++ b/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 diff --git a/scripts/Dpkg/Vendor/Debian.pm b/scripts/Dpkg/Vendor/Debian.pm index 566051832..2cc2c789f 100644 --- a/scripts/Dpkg/Vendor/Debian.pm +++ b/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 diff --git a/scripts/Dpkg/Vendor/Default.pm b/scripts/Dpkg/Vendor/Default.pm index 9dafacc12..cb0d28b73 100644 --- a/scripts/Dpkg/Vendor/Default.pm +++ b/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 diff --git a/scripts/Dpkg/Vendor/Ubuntu.pm b/scripts/Dpkg/Vendor/Ubuntu.pm index 30e5539cb..616c428c9 100644 --- a/scripts/Dpkg/Vendor/Ubuntu.pm +++ b/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 diff --git a/scripts/Dpkg/Version.pm b/scripts/Dpkg/Version.pm index f704cab7b..f7f2ff3e4 100644 --- a/scripts/Dpkg/Version.pm +++ b/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 |