This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
cop_stashoff is an integer, not a pointer.
authorCraig A. Berry <craigberry@mac.com>
Fri, 8 Jun 2012 22:28:00 +0000 (17:28 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 8 Jun 2012 23:14:29 +0000 (18:14 -0500)
Fix for compiler warning introduced by d4d03940c58.

op.c

diff --git a/op.c b/op.c
index bc6df04..34b1097 100644 (file)
--- a/op.c
+++ b/op.c
@@ -10053,7 +10053,7 @@ Perl_rpeep(pTHX_ register OP *o)
                    firstcop->cop_hints_hash = secondcop->cop_hints_hash;
 
 #ifdef USE_ITHREADS
-                   secondcop->cop_stashoff = NULL;
+                   secondcop->cop_stashoff = 0;
                    secondcop->cop_file = NULL;
 #else
                    secondcop->cop_stash = NULL;