[Module::Build] [PATCH] update bundled Tie::CPHash

[Yitzchak Scott-T. <sth...@ef...>]

Update to a newer version of Tie::CPHash which includes support for
the 5.8.3+ SCALAR method.  This isn't needed for MB's purposes, but
the bundled version really should stay current.  I doubt there will be
any further changes for a long time to come.

--- Module-Build/t/bundled/Tie/CPHash.pm.orig	2006-02-25 07:27:27.000000000 -0800
+++ Module-Build/t/bundled/Tie/CPHash.pm	2006-03-12 18:12:22.000000000 -0800
@@ -3,9 +3,9 @@
 #
 # Copyright 1997 Christopher J. Madsen
 #
-# Author: Christopher J. Madsen <chr...@ge...>
+# Author: Christopher J. Madsen <cj...@po...>
 # Created: 08 Nov 1997
-# Version: 1.001 (25-Oct-1998)
+# $Revision: 1268 $  $Date: 2006-03-12 20:12:22 -0600 (Sun, 12 Mar 2006) $
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -27,11 +27,7 @@
 #=====================================================================
 # Package Global Variables:
 
-BEGIN
-{
-    # Convert RCS revision number to d.ddd format:
-    $VERSION = sprintf('%d.%03d', '1.001 ' =~ /(\d+)\.(\d+)/);
-} # end BEGIN
+$VERSION = '1.02';
 
 #=====================================================================
 # Tied Methods:
@@ -85,6 +81,15 @@
 } # end NEXTKEY
 
 #---------------------------------------------------------------------
+# SCALAR this
+#     Return bucket usage information for the hash (0 if empty).
+
+sub SCALAR
+{
+    scalar %{$_[0]};
+} # end SCALAR
+
+#---------------------------------------------------------------------
 # EXISTS this, key
 #     Verify that *key* exists with the tied hash *this*.
 
@@ -147,8 +152,8 @@
 
 =head1 DESCRIPTION
 
-The B<Tie::CPHash> provides a hash table that is case preserving but
-case insensitive.  This means that
+The B<Tie::CPHash> module provides a hash table that is case
+preserving but case insensitive.  This means that
 
     $cphash{KEY}    $cphash{key}
     $cphash{Key}    $cphash{keY}
@@ -180,7 +185,7 @@
 
 =head1 AUTHOR
 
-Christopher J. Madsen E<lt>F<chr...@ge...>E<gt>
+Christopher J. Madsen E<lt>F<cj...@po...>E<gt>
 
 =cut