10 files changed, 0 insertions, 524 deletions
diff --git a/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm b/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm
deleted file mode 100644
index 4b024eb..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/Locale/gettext.pm
+++ /dev/null
@@ -1,283 +0,0 @@
-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
deleted file mode 100644
index 8f8c78d..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/Text/CharWidth.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-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
deleted file mode 100644
index 435a33b..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/Text/Iconv.pm
+++ /dev/null
@@ -1,160 +0,0 @@
-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
deleted file mode 100644
index e69de29..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.bs
+++ /dev/null
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
deleted file mode 100644
index 72645c0..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Locale/gettext/gettext.so
+++ /dev/null
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
deleted file mode 100644
index e69de29..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.bs
+++ /dev/null
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
deleted file mode 100644
index 45266b5..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/CharWidth/CharWidth.so
+++ /dev/null
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
deleted file mode 100644
index e69de29..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.bs
+++ /dev/null
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
deleted file mode 100644
index 2e39019..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/Iconv.so
+++ /dev/null
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
deleted file mode 100644
index 1caf1ae..0000000
--- a/beagle/debian-rfs/usr/lib/perl5/auto/Text/Iconv/autosplit.ix
+++ /dev/null
@@ -1,3 +0,0 @@
-# Index created by AutoSplit for blib/lib/Text/Iconv.pm
-#    (file acts as timestamp)
-1;