Silence a bunch of Borland compiler warnings in SDBM_File

(See: http://www.nntp.perl.org/group/perl.daily-build.reports/40283)

p4raw-id: //depot/perl@28759

diff --git a/XSUB.h b/XSUB.h
index 51112a9..de5d33b 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -365,7 +365,6 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
             if (name[7] == 's'){                                \
                 arg = sv_2mortal(arg);                          \
             }                                                   \
-            SvOKp(arg);                                         \
        } } STMT_END                                                     
 
 #if 1          /* for compatibility */