From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 24 Sep 1998 10:29:54 +0000 (+0000)
Subject: two tweaks for clean build and test on Solaris
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=344462d3dde55465e709768c0d1dbfa2a8198aa5;p=p5sagit%2Fp5-mst-13.2.git

two tweaks for clean build and test on Solaris

p4raw-id: //depot/perl@1877
---

diff --git a/op.c b/op.c
index 9b2284d..b6e2499 100644
--- a/op.c
+++ b/op.c
@@ -131,6 +131,7 @@ pad_allocmy(char *name)
 	for (off = AvFILLp(PL_comppad_name); off > PL_comppad_name_floor; off--) {
 	    if ((sv = svp[off])
 		&& sv != &PL_sv_undef
+		&& (SvIVX(sv) == 999999999 || SvIVX(sv) == 0)
 		&& strEQ(name, SvPVX(sv)))
 	    {
 		warner(WARN_UNSAFE,
diff --git a/t/op/subst.t b/t/op/subst.t
index 81cafec..d224165 100755
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -1,5 +1,7 @@
 #!./perl
 
+BEGIN { @INC = ('../lib') }
+
 print "1..71\n";
 
 $x = 'foo';