10 files changed, 524 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm b/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm
new file mode 100644
index 0000000..4b024eb
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm
@@ -0,0 +1,283 @@
+package Locale::gettext;
+
+=head1 NAME
+
+Locale::gettext - message handling functions
+
+=head1 SYNOPSIS
+
+    use Locale::gettext;
+    use POSIX;     # Needed for setlocale()
+
+    setlocale(LC_MESSAGES, "");
+
+    # OO interface
+    my $d = Locale::gettext->domain("my_program");
+
+    print $d->get("Welcome to my program"), "\n";
+            # (printed in the local language)
+
+    # Direct access to C functions
+    textdomain("my_program");
+
+    print gettext("Welcome to my program"), "\n";
+            # (printed in the local language)
+
+=head1 DESCRIPTION
+
+The gettext module permits access from perl to the gettext() family of
+functions for retrieving message strings from databases constructed
+to internationalize software.
+
+=cut
+
+use Carp;
+use POSIX qw(:locale_h);
+
+require Exporter;
+require DynaLoader;
+@ISA = qw(Exporter DynaLoader);
+
+BEGIN {
+	eval {
+		require Encode;
+		$encode_available = 1;
+	};
+	import Encode if ($encode_available);
+}
+
+$VERSION = "1.05" ;
+
+%EXPORT_TAGS = (
+
+    locale_h =>	[qw(LC_CTYPE LC_NUMERIC LC_TIME LC_COLLATE LC_MONETARY LC_MESSAGES LC_ALL)],
+
+    libintl_h => [qw(gettext textdomain bindtextdomain dcgettext dgettext ngettext dngettext dcngettext bind_textdomain_codeset)],
+
+);
+
+Exporter::export_tags();
+
+@EXPORT_OK = qw(
+);
+
+bootstrap Locale::gettext $VERSION;
+
+sub AUTOLOAD {
+    local $! = 0;
+    my $constname = $AUTOLOAD;
+    $constname =~ s/.*:://;
+    my $val = constant($constname, (@_ ? $_[0] : 0));
+    if ($! == 0) {
+	*$AUTOLOAD = sub { $val };
+    }
+    else {
+	croak "Missing constant $constname";
+    }
+    goto &$AUTOLOAD;
+}
+
+=over 2
+
+=item $d = Locale::gettext->domain(DOMAIN)
+
+=item $d = Locale::gettext->domain_raw(DOMAIN)
+
+Creates a new object for retrieving strings in the domain B<DOMAIN>
+and returns it. C<domain> requests that strings be returned as
+Perl strings (possibly with wide characters) if possible while
+C<domain_raw> requests that octet strings directly from functions
+like C<dgettext()>.
+
+=cut
+
+sub domain_raw {
+	my ($class, $domain) = @_;
+	my $self = { domain => $domain, raw => 1 };
+	bless $self, $class;
+}
+
+sub domain {
+	my ($class, $domain) = @_;
+	unless ($encode_available) {
+		croak "Encode module not available, cannot use Locale::gettext->domain";
+	}
+	my $self = { domain => $domain, raw => 0 };
+	bless $self, $class;
+	eval { bind_textdomain_codeset($self->{domain}, "UTF-8"); };
+	if ($@ =~ /not implemented/) {
+		# emulate it
+		$self->{emulate} = 1;
+	} elsif ($@ ne '') {
+		die;	# some other problem
+	}
+	$self;
+}
+
+=item $d->get(MSGID)
+
+Calls C<dgettext()> to return the translated string for the given
+B<MSGID>.
+
+=cut
+
+sub get {
+	my ($self, $msgid) = @_;
+	$self->_convert(dgettext($self->{domain}, $msgid));
+}
+
+=item $d->cget(MSGID, CATEGORY)
+
+Calls C<dcgettext()> to return the translated string for the given
+B<MSGID> in the given B<CATEGORY>.
+
+=cut
+
+sub cget {
+	my ($self, $msgid, $category) = @_;
+	$self->_convert(dcgettext($self->{domain}, $msgid, $category));
+}
+
+=item $d->nget(MSGID, MSGID_PLURAL, N)
+
+Calls C<dngettext()> to return the translated string for the given
+B<MSGID> or B<MSGID_PLURAL> depending on B<N>.
+
+=cut
+
+sub nget {
+	my ($self, $msgid, $msgid_plural, $n) = @_;
+	$self->_convert(dngettext($self->{domain}, $msgid, $msgid_plural, $n));
+}
+
+=item $d->ncget(MSGID, MSGID_PLURAL, N, CATEGORY)
+
+Calls C<dngettext()> to return the translated string for the given
+B<MSGID> or B<MSGID_PLURAL> depending on B<N> in the given
+B<CATEGORY>.
+
+=cut
+
+sub ncget {
+	my ($self, $msgid, $msgid_plural, $n, $category) = @_;
+	$self->_convert(dcngettext($self->{domain}, $msgid, $msgid_plural, $n, $category));
+}
+
+=item $d->dir([NEWDIR])
+
+If B<NEWDIR> is given, calls C<bindtextdomain> to set the
+name of the directory where messages for the domain
+represented by C<$d> are found. Returns the (possibly changed)
+current directory name.
+
+=cut
+
+sub dir {
+	my ($self, $newdir) = @_;
+	if (defined($newdir)) {
+		bindtextdomain($self->{domain}, $newdir);
+	} else {
+		bindtextdomain($self->{domain});
+	}
+}
+
+=item $d->codeset([NEWCODE])
+
+For instances created with C<Locale::gettext-E<gt>domain_raw>, manuiplates
+the character set of the returned strings.
+If B<NEWCODE> is given, calls C<bind_textdomain_codeset> to set the
+character encoding in which messages for the domain
+represented by C<$d> are returned. Returns the (possibly changed)
+current encoding name.
+
+=cut
+
+sub codeset {
+	my ($self, $codeset) = @_;
+	if ($self->{raw} < 1) {
+		warn "Locale::gettext->codeset: meaningful only for instances created with domain_raw";
+		return;
+	}
+	if (defined($codeset)) {
+		bind_textdomain_codeset($self->{domain}, $codeset);
+	} else {
+		bind_textdomain_codeset($self->{domain});
+	}
+}
+
+sub _convert {
+	my ($self, $str) = @_;
+	return $str if ($self->{raw});
+	# thanks to the use of UTF-8 in bind_textdomain_codeset, the
+	# result should always be valid UTF-8 when raw mode is not used.
+	if ($self->{emulate}) {
+		delete $self->{emulate};
+		$self->{raw} = 1;
+		my $null = $self->get("");
+		if ($null =~ /charset=(\S+)/) {
+			$self->{decode_from} = $1;
+			$self->{raw} = 0;
+		} #else matches the behaviour of glibc - no null entry
+		  # means no conversion is done
+	}
+	if ($self->{decode_from}) {
+		return decode($self->{decode_from}, $str);
+	} else {
+		return decode_utf8($str);
+	}
+}
+
+sub DESTROY {
+	my ($self) = @_;
+}
+
+=back
+
+gettext(), dgettext(), and dcgettext() attempt to retrieve a string
+matching their C<msgid> parameter within the context of the current
+locale. dcgettext() takes the message's category and the text domain
+as parameters while dgettext() defaults to the LC_MESSAGES category
+and gettext() defaults to LC_MESSAGES and uses the current text domain.
+If the string is not found in the database, then C<msgid> is returned.
+
+ngettext(), dngettext(), and dcngettext() function similarily but
+implement differentiation of messages between singular and plural.
+See the documentation for the corresponding C functions for details.
+
+textdomain() sets the current text domain and returns the previously
+active domain.
+
+I<bindtextdomain(domain, dirname)> instructs the retrieval functions to look
+for the databases belonging to domain C<domain> in the directory
+C<dirname>
+
+I<bind_textdomain_codeset(domain, codeset)> instructs the retrieval
+functions to translate the returned messages to the character encoding
+given by B<codeset> if the encoding of the message catalog is known.
+
+=head1 NOTES
+
+Not all platforms provide all of the functions. Functions that are
+not available in the underlying C library will not be available in
+Perl either.
+
+Perl programs should use the object interface. In addition to being
+able to return native Perl wide character strings,
+C<bind_textdomain_codeset> will be emulated if the C library does
+not provide it.
+
+=head1 VERSION
+
+1.05.
+
+=head1 SEE ALSO
+
+gettext(3i), gettext(1), msgfmt(1)
+
+=head1 AUTHOR
+
+Phillip Vandry <vandry@TZoNE.ORG>
+
+=cut
+
+1;
diff --git a/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm b/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm
new file mode 100644
index 0000000..8f8c78d
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm
@@ -0,0 +1,78 @@
+package Text::CharWidth;
+
+use 5.008;
+use strict;
+use warnings;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(mbwidth mbswidth mblen);
+our @EXPORT = qw();
+our %EXPORT_TAGS = ('all' => [ @EXPORT_OK ]);
+
+our $VERSION = '0.04';
+
+require XSLoader;
+XSLoader::load('Text::CharWidth', $VERSION);
+
+# Preloaded methods go here.
+
+1;
+__END__
+# Below is stub documentation for your module. You'd better edit it!
+
+=head1 NAME
+
+Text::CharWidth - Get number of occupied columns of a string on terminal
+
+=head1 SYNOPSIS
+
+  use Text::CharWidth qw(mbwidth mbswidth mblen);
+  mbwidth(string);
+  mbswidth(string);
+  mblen(string);
+
+=head1 DESCRIPTION
+
+This module supplies features similar as wcwidth(3) and wcswidth(3)
+in C language.
+
+Characters have its own width on terminal depending on locale.
+For example, ASCII characters occupy one column per character,
+east Asian fullwidth characters (like Hiragana or Han Ideograph)
+occupy two columns per character, and combining characters (apperaring
+in ISO-8859-11 Thai, Unicode, and so on) occupy zero columns per
+character.  mbwidth() gives the width of the first character of
+the given string and mbswidth() gives the width of the whole given
+string.
+
+The names of mbwidth and mbswidth came from "multibyte" versions
+of wcwidth and wcswidth which are "wide character" versions.
+
+I<mblen(string)> returns number of bytes of the first character of the
+string.  Please note that a character may consist of multiple
+bytes in multibyte encodings such as UTF-8, EUC-JP, EUC-KR,
+GB2312, or Big5.
+
+I<mbwidth(string)> returns the width of the first character of the
+string.  I<mbswidth(string)> returns the width of the whole string.
+
+Parameters are to be given in locale encodings, not always in UTF-8.
+
+=head1 SEE ALSO
+
+locale(5), wcwidth(3), wcswidth(3)
+
+=head1 AUTHOR
+
+Tomohiro KUBOTA, E<lt>kubota@debian.orgE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2003 by Tomohiro KUBOTA
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+=cut
diff --git a/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm b/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm
new file mode 100644
index 0000000..435a33b
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm
@@ -0,0 +1,160 @@
+package Text::Iconv;
+# @(#) $Id: Iconv.pm,v 1.10 2007/10/17 14:14:22 mxp Exp $
+# Copyright (c) 2007 Michael Piotrowski
+
+use strict;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+
+require Exporter;
+require DynaLoader;
+require AutoLoader;
+
+@ISA = qw(Exporter AutoLoader DynaLoader);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT_OK = qw(
+	convert
+);
+$VERSION = '1.7';
+
+bootstrap Text::Iconv $VERSION;
+
+# Preloaded methods go here.
+
+# Autoload methods go after =cut, and are processed by the autosplit program.
+
+1;
+__END__
+# Below is the documentation for the module.
+
+=head1 NAME
+
+Text::Iconv - Perl interface to iconv() codeset conversion function
+
+=head1 SYNOPSIS
+
+  use Text::Iconv;
+  $converter = Text::Iconv->new("fromcode", "tocode");
+  $converted = $converter->convert("Text to convert");
+
+=head1 DESCRIPTION
+
+The B<Text::Iconv> module provides a Perl interface to the iconv()
+function as defined by the Single UNIX Specification.
+
+The convert() method converts the encoding of characters in the input
+string from the I<fromcode> codeset to the I<tocode> codeset, and
+returns the result.
+
+Settings of I<fromcode> and I<tocode> and their permitted combinations
+are implementation-dependent.  Valid values are specified in the
+system documentation; the iconv(1) utility should also provide a B<-l>
+option that lists all supported codesets.
+
+=head2 Utility methods
+
+B<Text::Iconv> objects also provide the following methods:
+
+retval() returns the return value of the underlying iconv() function
+for the last conversion; according to the Single UNIX Specification,
+this value indicates "the number of non-identical conversions
+performed."  Note, however, that iconv implementations vary widely in
+the interpretation of this specification.
+
+This method can be called after calling convert(), e.g.:
+
+  $result = $converter->convert("lorem ipsum dolor sit amet");
+  $retval = $converter->retval;
+
+When called before the first call to convert(), or if an error occured
+during the conversion, retval() returns B<undef>.
+
+get_attr(): This method is only available with GNU libiconv, otherwise
+it throws an exception.  The get_attr() method allows you to query
+various attributes which influence the behavior of convert().  The
+currently supported attributes are I<trivialp>, I<transliterate>, and
+I<discard_ilseq>, e.g.:
+
+  $state = $converter->get_attr("transliterate");
+
+See iconvctl(3) for details.  To ensure portability to other iconv
+implementations you should first check for the availability of this
+method using B<eval {}>, e.g.:
+
+    eval { $conv->get_attr("trivialp") };
+    if ($@)
+    {
+      # get_attr() is not available
+    }
+    else
+    {
+      # get_attr() is available
+    }
+
+This method should be considered experimental.
+
+set_attr(): This method is only available with GNU libiconv, otherwise
+it throws an exception.  The set_attr() method allows you to set
+various attributes which influence the behavior of convert().  The
+currently supported attributes are I<transliterate> and
+I<discard_ilseq>, e.g.:
+
+  $state = $converter->set_attr("transliterate");
+
+See iconvctl(3) for details.  To ensure portability to other iconv
+implementations you should first check for the availability of this
+method using B<eval {}>, cf. the description of set_attr() above.
+
+This method should be considered experimental.
+
+=head1 ERRORS
+
+If the conversion can't be initialized an exception is raised (using
+croak()).
+
+=head2 Handling of conversion errors
+
+I<Text::Iconv> provides a class attribute B<raise_error> and a
+corresponding class method for setting and getting its value.  The
+handling of errors during conversion depends on the setting of this
+attribute.  If B<raise_error> is set to a true value, an exception is
+raised; otherwise, the convert() method only returns B<undef>.  By
+default B<raise_error> is false.  Example usage:
+
+  Text::Iconv->raise_error(1);     # Conversion errors raise exceptions
+  Text::Iconv->raise_error(0);     # Conversion errors return undef
+  $a = Text::Iconv->raise_error(); # Get current setting
+
+=head2 Per-object handling of conversion errors
+
+As an experimental feature, I<Text::Iconv> also provides an instance
+attribute B<raise_error> and a corresponding method for setting and
+getting its value.  If B<raise_error> is B<undef>, the class-wide
+settings apply.  If B<raise_error> is 1 or 0 (true or false), the
+object settings override the class-wide settings.
+
+Consult L<iconv(3)> for details on errors that might occur.
+
+=head2 Conversion of B<undef>
+
+Converting B<undef>, e.g.,
+
+  $converted = $converter->convert(undef);
+
+always returns B<undef>.  This is not considered an error.
+
+=head1 NOTES
+
+The supported codesets, their names, the supported conversions, and
+the quality of the conversions are all system-dependent.
+
+=head1 AUTHOR
+
+Michael Piotrowski <mxp@dynalabs.de>
+
+=head1 SEE ALSO
+
+iconv(1), iconv(3)
+
+=cut
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so
new file mode 100644
index 0000000..72645c0
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so
new file mode 100644
index 0000000..45266b5
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so
new file mode 100644
index 0000000..2e39019
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so
diff --git a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix
new file mode 100644
index 0000000..1caf1ae
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix
@@ -0,0 +1,3 @@
+# Index created by AutoSplit for blib/lib/Text/Iconv.pm
+#    (file acts as timestamp)
+1;