-#-----------------------------------------------------------------------#
-# NOTE! This module is deprecated (obsolete) after the Perl release #
-# 5.003_06 as the functionality has been integrated into the Perl core. #
-#-----------------------------------------------------------------------#
-
package I18N::Collate;
=head1 NAME
I18N::Collate - compare 8-bit scalar data according to the current locale
+ ***
+
+ WARNING: starting from the Perl version 5.003_06
+ the I18N::Collate interface for comparing 8-bit scalar data
+ according to the current locale
+
+ HAS BEEN DEPRECATED
+
+ That is, please do not use it anymore for any new applications
+ and please migrate the old applications away from it because its
+ functionality was integrated into the Perl core language in the
+ release 5.003_06.
+
+ See the perllocale manual page for further information.
+
+ ***
+
=head1 SYNOPSIS
use I18N::Collate;
# I18N::Collate.pm
#
-# Author: Jarkko Hietaniemi <Jarkko.Hietaniemi@hut.fi>
+# Author: Jarkko Hietaniemi <F<jhi@iki.fi>>
# Helsinki University of Technology, Finland
#
-# Acks: Guy Decoux <decoux@moulon.inra.fr> understood
+# Acks: Guy Decoux <F<decoux@moulon.inra.fr>> understood
# overloading magic much deeper than I and told
# how to cut the size of this code by more than half.
# (my first version did overload all of lt gt eq le ge cmp)
# ---
use POSIX qw(strxfrm LC_COLLATE);
+use warnings::register;
require Exporter;
sub new {
my $new = $_[1];
- if ($^W && $] >= 5.003_06) {
+ if (warnings::enabled() && $] >= 5.003_06) {
unless ($please_use_I18N_Collate_even_if_deprecated) {
- warn <<___EOD___;
+ warnings::warn <<___EOD___;
***
- WARNING: starting from the Perl version 5.003_06 the I18N::Collate
- interface for comparing 8-bit scalar data according to the current locale
+ WARNING: starting from the Perl version 5.003_06
+ the I18N::Collate interface for comparing 8-bit scalar data
+ according to the current locale
HAS BEEN DEPRECATED
- (that is, please do not use it anymore for any new applications and please
- migrate the old applications away from it) because its functionality was
- integrated into the Perl core language in the release 5.003_06.
+ That is, please do not use it anymore for any new applications
+ and please migrate the old applications away from it because its
+ functionality was integrated into the Perl core language in the
+ release 5.003_06.
- See pod/perli18n.pod for further information.
+ See the perllocale manual page for further information.
***
___EOD___