This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: glob names and Regexp type introspection
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Thu, 29 Aug 2002 17:31:31 +0000 (10:31 -0700)
committerhv <hv@crypt.org>
Fri, 30 Aug 2002 12:19:15 +0000 (12:19 +0000)
Message-ID: <jzrb9gzkgO7W092yn@efn.org>

p4raw-id: //depot/perl@17813

sv.c
t/op/pat.t

diff --git a/sv.c b/sv.c
index aad6c34..5627656 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2948,7 +2948,6 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
                    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;
 
index 767c069..8496f95 100755 (executable)
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..922\n";
+print "1..924\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2902,3 +2902,12 @@ print "e" =~ /\P{InConsonant}/ ? "ok $test\n" : "not ok $test\n"; $test++;
 }
 
 $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;