Change 17813: [PATCH] Re: glob names and Regexp type introspection

[hv]

Change 17813 by [EMAIL PROTECTED] on 2002/08/30 12:19:15

        Subject: [PATCH] Re: glob names and Regexp type introspection
        From: [EMAIL PROTECTED] (Yitzchak Scott-Thoennes)
        Date: Thu, 29 Aug 2002 17:31:31 -0700
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/sv.c#581 edit
.... //depot/perl/t/op/pat.t#178 edit

Differences ...

==== //depot/perl/sv.c#581 (text) ====
Index: perl/sv.c
--- perl/sv.c#580~17804~        Thu Aug 29 06:29:43 2002
+++ perl/sv.c   Fri Aug 30 05:19:15 2002
@@ -2948,7 +2948,6 @@
                    if ( ((SvFLAGS(sv) &
                           (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG))
                          == (SVs_OBJECT|SVs_RMG))
-                        && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp")
                         && (mg = mg_find(sv, PERL_MAGIC_qr))) {
                        regexp *re = (regexp *)mg->mg_obj;
 

==== //depot/perl/t/op/pat.t#178 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#177~17390~  Mon Jul  1 06:40:44 2002
+++ perl/t/op/pat.t     Fri Aug 30 05:19:15 2002
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..922\n";
+print "1..924\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2902,3 +2902,12 @@
 }
 
 $test = 923;
+
+$a = bless qr/foo/, 'Foo';
+print(('goodfood' =~ $a ? '' : 'not '),
+       "ok $test\t# reblessed qr// matches\n");
+++$test;
+
+print(($a eq '(?-xism:foo)' ? '' : 'not '),
+       "ok $test\t# reblessed qr// stringizes\n");
+++$test;
End of Patch.