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 (file)
--- 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 (executable)
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -1,5 +1,7 @@
 #!./perl
 
+BEGIN { @INC = ('../lib') }
+
 print "1..71\n";
 
 $x = 'foo';