From 1116284222923a1670dbbe2205884d0616c81dfc Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Jul 1998 08:32:53 +0000
Subject: [PATCH] various small tweaks (still fails a few taint tests in
 {taint,locale}.t)

p4raw-id: //depot/perl@1309
---
 Todo.5.005     | 2 ++
 lib/re.pm      | 2 +-
 sv.c           | 2 +-
 t/lib/fields.t | 2 ++
 4 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/Todo.5.005 b/Todo.5.005
index bea5d84..37ee139 100644
--- a/Todo.5.005
+++ b/Todo.5.005
@@ -63,3 +63,5 @@ Documentation
     document Win32 choices
     rework INSTALL to reflect changes in installation structure
     spot-check all new modules for completeness
+    better docs for pack()/unpack()
+    add perlport.pod
diff --git a/lib/re.pm b/lib/re.pm
index 07626c2..ff38c41 100644
--- a/lib/re.pm
+++ b/lib/re.pm
@@ -25,7 +25,7 @@ See L<perlmodlib/Pragmatic Modules>.
 =cut
 
 my %bitmask = (
-taint => 0x00001000
+taint => 0x00100000
 );
 
 sub bits {
diff --git a/sv.c b/sv.c
index d4cac52..f60e820 100644
--- a/sv.c
+++ b/sv.c
@@ -3609,7 +3609,7 @@ sv_2mortal(register SV *sv)
     if (!sv)
 	return sv;
     if (SvREADONLY(sv) && SvIMMORTAL(sv))
-	return;
+	return sv;
     if (++tmps_ix >= tmps_max)
 	sv_mortalgrow();
     tmps_stack[tmps_ix] = sv;
diff --git a/t/lib/fields.t b/t/lib/fields.t
index 7fad5d7..fe6ed18 100755
--- a/t/lib/fields.t
+++ b/t/lib/fields.t
@@ -6,6 +6,8 @@ use vars qw($DEBUG);
 my $w;
 
 BEGIN {
+   chdir 't' if -d 't';
+   @INC = '../lib' if -d '../lib';
    $SIG{__WARN__} = sub {
        if ($_[0] =~ /^Hides field 'b1' in base class/) {
            $w++;
-- 
2.7.4