From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Date: Mon, 7 Oct 1996 19:03:00 +0000 (+0300)
Subject: LC_COLLATE.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b48aaa47c056913e026307247ee46ad81e899e2;p=p5sagit%2Fp5-mst-13.2.git

LC_COLLATE.

Big patch to add, document, and test LC_COLLATE support.

deprecated and trapped (will whine if called and tell to migrate away)
---

diff --git a/lib/I18N/Collate.pm b/lib/I18N/Collate.pm
index 0d8314e..5d1e141 100644
--- a/lib/I18N/Collate.pm
+++ b/lib/I18N/Collate.pm
@@ -1,3 +1,8 @@
+#
+# 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
@@ -87,7 +92,7 @@ ISO Latin (8859) 1 (-1) which is the Western European character set.
 #		   variant of French (fr), ISO Latin (8859) 1 (-1)
 #		   which is the Western European character set.
 #
-# Updated:	19960104 1946 GMT
+# Updated:	19961005
 #
 # ---
 
@@ -104,7 +109,37 @@ fallback	1
 cmp		collate_cmp
 );
 
-sub new { my $new = $_[1]; bless \$new }
+sub new {
+  my $new = $_[1];
+
+  if ($^W && $] >= 5.003_06) {
+    unless ($please_use_I18N_Collate_even_if_deprecated) {
+      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
+
+	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.
+
+  All scalar data is now collated according to the current locale setting.
+  Also, Perl does automatically the setlocale(LC_COLLATE, "") for you.
+
+  To convert: forget I18N::Collate completely and use scalar data in
+  a completely normal way.
+
+***
+___EOD___
+      $please_use_I18N_Collate_even_if_deprecated++;
+    }
+  }
+
+  bless \$new;
+}
 
 sub setlocale {
  my ($category, $locale) = @_[0,1];