From 2ae324a7ad5d4e616e757c311984fd86d5857ddd Mon Sep 17 00:00:00 2001 From: Perl 5 Porters Date: Fri, 7 Mar 1997 04:01:12 +1200 Subject: [inseparable changes from match from perl-5.003_92 to perl-5.003_93] BUILD PROCESS Subject: Fix for Unisys UNIX and libperl.so Date: Thu, 6 Mar 97 16:28 GMT0 From: Alan Burlison Files: Configure Msg-ID: memo.147328@cix.compulink.co.uk (applied based on p5p patch as commit 2f525a329506abe067c4ec9d4c7ae13d8b223081) Subject: Allow './Configure -Uoptimize' Date: Thu, 06 Mar 1997 11:15:47 -0500 (EST) From: Andy Dougherty Files: Configure Msg-ID: Pine.SOL.3.95q.970306110532.11070A-100000@fractal.lafayette. (applied based on p5p patch as commit 59ae47780c168857b216412f8354d10ae6dd0b61) Subject: Use 'test -f', not 'test -x' Date: Fri, 7 Mar 1997 19:53:00 -0500 From: Spider Boardman Files: Configure Msg-ID: 199703080053.TAA13943@web.zk3.dec.com (applied based on p5p patch as commit 64b4562546c4e74f87c21f65a76ec05e96a1b74f) CORE LANGUAGE CHANGES Subject: Don't autovivify array and hash elements in sub parameters Date: Thu, 06 Mar 1997 14:12:09 -0500 From: Gurusamy Sarathy Files: op.c pod/perldelta.pod pod/perlsub.pod pod/perltrap.pod Msg-ID: 199703061912.OAA20606@aatma.engin.umich.edu (applied based on p5p patch as commit 0ffc6623ceb5acc7b954e8cdbaeb8ba319474d7b) Subject: Support READ and GETC for tied handles Date: Sat, 08 Mar 1997 19:19:38 -0500 From: Doug MacEachern Files: pod/perldelta.pod pod/perltie.pod pp_sys.c t/op/misc.t Msg-ID: 199703090019.TAA32591@postman.osf.org (applied based on p5p patch as commit b06b64f805517c26cbd7c4d2f74efd5f36b4692c) Subject: Warn on C<@x =~ /a/> and C<%x =~ s/a/b/> From: Chip Salzenberg Files: op.c pod/perldiag.pod CORE PORTABILITY Subject: VMS update Date: Fri, 07 Mar 1997 22:49:46 -0500 (EST) From: Charles Bailey Files: lib/ExtUtils/MM_VMS.pm vms/descrip.mms vms/gen_shrfls.pl vms/sockadapt.h private-msgid: 01IG8KN5R28M00661G@hmivax.humgen.upenn.edu DOCUMENTATION Subject: Consolidated INSTALL updates since _92 Date: Sat, 08 Mar 1997 13:21:22 -0500 (EST) From: Andy Dougherty Files: Msg-ID: Pine.SOL.3.95q.970308131806.23766F-100000@fractal.lafayette. (applied based on p5p patch as commit e6834c60cd85866fc530e8b4bb831af6186bad4d) Subject: PODs corrections Date: Fri, 7 Mar 1997 21:53:04 -0500 (EST) From: Ilya Zakharevich Files: ext/DB_File/DB_File.pm ext/Socket/Socket.pm lib/Class/Template.pm lib/ExtUtils/Embed.pm lib/ExtUtils/MM_VMS.pm lib/ExtUtils/Mksymlists.pm lib/File/Basename.pm lib/File/stat.pm lib/Time/gmtime.pm lib/Time/localtime.pm lib/Time/tm.pm lib/User/grent.pm lib/User/pwent.pm pod/perlcall.pod pod/perldebug.pod pod/perlfunc.pod pod/perlguts.pod pod/perllocale.pod pod/perlop.pod pod/perlsub.pod Msg-ID: 199703080253.VAA24975@monk.mps.ohio-state.edu (applied based on p5p patch as commit 72451f4af0d31f24ef5b12bc5d034e3e8b35d43d) OTHER CORE CHANGES Subject: Fix imbalanced ENTER/LEAVE from C From: Chip Salzenberg Files: op.c perl.c proto.h Subject: perl -P path patch Date: Sat, 08 Mar 1997 12:45:08 -0500 (EST) From: Andy Dougherty Files: config_H config_h.SH perl.c plan9/config.plan9 t/comp/cpp.t vms/config.vms win32/config.H Msg-ID: Pine.SOL.3.95q.970308120242.23766D-100000@fractal.lafayette. (applied based on p5p patch as commit bba014945c609b5474f61f5e82ed2ff3e83a6e47) --- op.c | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) (limited to 'op.c') diff --git a/op.c b/op.c index f27aa94360..3b05012774 100644 --- a/op.c +++ b/op.c @@ -1264,6 +1264,20 @@ OP *right; { OP *op; + if (dowarn && + (left->op_type == OP_RV2AV || + left->op_type == OP_RV2HV || + left->op_type == OP_PADAV || + left->op_type == OP_PADHV)) { + char *desc = op_desc[(right->op_type == OP_SUBST || + right->op_type == OP_TRANS) + ? right->op_type : OP_MATCH]; + char *sample = ((left->op_type == OP_RV2AV || + left->op_type == OP_PADAV) + ? "@array" : "%hash"); + warn("Applying %s to %s will act on scalar(%s)", desc, sample, sample); + } + if (right->op_type == OP_MATCH || right->op_type == OP_SUBST || right->op_type == OP_TRANS) { @@ -3192,6 +3206,7 @@ OP *block; else s = name; if (strEQ(s, "BEGIN") && !error_count) { + I32 oldscope = scopestack_ix; ENTER; SAVESPTR(compiling.cop_filegv); SAVEI16(compiling.cop_line); @@ -3204,7 +3219,7 @@ OP *block; DEBUG_x( dump_sub(gv) ); av_push(beginav, (SV *)cv); GvCV(gv) = 0; - calllist(beginav); + calllist(oldscope, beginav); curcop = &compiling; LEAVE; @@ -4399,7 +4414,6 @@ OP *op; } else list(o); - mod(o, OP_ENTERSUB); prev = o; o = o->op_sibling; } -- cgit v1.2.1