This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
backout change#1178 as it was dependent on an unapplied patch,
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 22 Jun 1998 04:06:02 +0000 (04:06 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 22 Jun 1998 04:06:02 +0000 (04:06 +0000)
fix filespec.t to know its @INC

p4raw-link: @1178 on //depot/perl: a21df721bd2b1f6f6000b965978d9b9377c04298

p4raw-id: //depot/perl@1190

sv.c
t/lib/filespec.t

diff --git a/sv.c b/sv.c
index ee5d34f..245c4a5 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1702,7 +1702,7 @@ sv_2pv(register SV *sv, STRLEN *lp)
                case SVt_PVMG:
                    if ( ((SvFLAGS(sv) &
                           (SVs_OBJECT|SVf_OK|SVs_GMG|SVs_SMG|SVs_RMG)) 
-                         == (SVs_OBJECT|SVs_RMG|SVs_SMG))
+                         == (SVs_OBJECT|SVs_RMG))
                         && strEQ(s=HvNAME(SvSTASH(sv)), "Regexp")
                         && (mg = mg_find(sv, 'r'))) {
                        regexp *re = (regexp *)mg->mg_obj;
index 8ba4363..ca22d3e 100755 (executable)
@@ -1,11 +1,13 @@
-#!/usr/bin/perl
-
-print "1..4\n";
+#!./perl
 
 BEGIN {
-       $^O = '';
+    $^O = '';
+    chdir 't' if -d 't';
+    @INC = '../lib';
 }
 
+print "1..4\n";
+
 use File::Spec;