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
|
