[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    Change 31643: Re-apply #31429, which was accidentally undone by #31632
From:       Steve Hay <SteveHay () planit ! com>
Date:       2007-07-20 9:15:02
Message-ID: 20070720091502.CF25E215D20 () mx ! activestate ! com
[Download RAW message or body]

Change 31643 by steveh@maldoror on 2007/07/20 09:05:32

	Re-apply #31429, which was accidentally undone by #31632
	(and bump the $VERSION this time too).

Affected files ...

... //depot/perl/ext/Hash/Util/FieldHash/FieldHash.xs#16 edit
... //depot/perl/ext/Hash/Util/FieldHash/lib/Hash/Util/FieldHash.pm#8 edit

Differences ...

==== //depot/perl/ext/Hash/Util/FieldHash/FieldHash.xs#16 (text) ====
Index: perl/ext/Hash/Util/FieldHash/FieldHash.xs
--- perl/ext/Hash/Util/FieldHash/FieldHash.xs#15~31632~	2007-07-19 01:12:57.000000000 -0700
+++ perl/ext/Hash/Util/FieldHash/FieldHash.xs	2007-07-20 02:05:32.000000000 -0700
@@ -233,22 +233,6 @@
     return 0;
 }
 
-/* see if something is a field hash */
-int HUF_get_status(HV* hash) {
-    int ans = 0;
-    if (hash && (SvTYPE(hash) == SVt_PVHV)) {
-        MAGIC* mg;
-        struct ufuncs* uf;
-        if ((mg = mg_find((SV*)hash, PERL_MAGIC_uvar)) &&
-            (uf = (struct ufuncs *)mg->mg_ptr) &&
-            (uf->uf_set == NULL)
-        ) {
-            ans = HUF_func_2mode(uf->uf_val);
-        }
-    }
-    return ans;
-}
-
 int HUF_func_2mode( I32(* val)(pTHX_ IV, SV*)) {
     int ans = 0;
     if (val == &HUF_watch_key_id)
@@ -271,6 +255,22 @@
     return(ans);
 }
 
+/* see if something is a field hash */
+int HUF_get_status(HV* hash) {
+    int ans = 0;
+    if (hash && (SvTYPE(hash) == SVt_PVHV)) {
+        MAGIC* mg;
+        struct ufuncs* uf;
+        if ((mg = mg_find((SV*)hash, PERL_MAGIC_uvar)) &&
+            (uf = (struct ufuncs *)mg->mg_ptr) &&
+            (uf->uf_set == NULL)
+        ) {
+            ans = HUF_func_2mode(uf->uf_val);
+        }
+    }
+    return ans;
+}
+
 /* Thread support.  These routines are called by CLONE (and nothing else) */
 
 /* Fix entries for one object in all field hashes */

==== //depot/perl/ext/Hash/Util/FieldHash/lib/Hash/Util/FieldHash.pm#8 (text) ====
Index: perl/ext/Hash/Util/FieldHash/lib/Hash/Util/FieldHash.pm
--- perl/ext/Hash/Util/FieldHash/lib/Hash/Util/FieldHash.pm#7~31632~	2007-07-19 01:12:57.000000000 -0700
+++ perl/ext/Hash/Util/FieldHash/lib/Hash/Util/FieldHash.pm	2007-07-20 02:05:32.000000000 -0700
@@ -5,7 +5,7 @@
 use warnings;
 use Scalar::Util qw( reftype);
 
-our $VERSION = '1.02';
+our $VERSION = '1.02_01';
 
 require Exporter;
 our @ISA = qw(Exporter);
End of Patch.
[prev in list] [next in list] [prev in thread] [next in thread]