To: vim-dev@vim.org
Subject: Patch 6.1.473
Fcc: outbox
From: Bram Moolenaar <Bram@moolenaar.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
------------

Patch 6.1.473
Problem:    Referring to $curwin or $curbuf in Perl 5.6 causes a crash.
Solution:   Add "pTHX_" to cur_val(). (Yasuhiro Matsumoto)
Files:	    src/if_perl.xs


*** ../vim61.472/src/if_perl.xs	Sun Apr  6 15:17:31 2003
--- src/if_perl.xs	Mon Apr 21 13:03:36 2003
***************
*** 528,534 ****
  }
  
  #ifndef PROTO
! I32 cur_val(IV iv, SV *sv);
  
  /*
   * Handler for the magic variables $main::curwin and $main::curbuf.
--- 527,533 ----
  }
  
  #ifndef PROTO
! I32 cur_val(pTHX_ IV iv, SV *sv);
  
  /*
   * Handler for the magic variables $main::curwin and $main::curbuf.
***************
*** 536,542 ****
   * (This is effectively a C-level equivalent of a tied variable).
   * There is no "set" function as the variables are read-only.
   */
! I32 cur_val(IV iv, SV *sv)
  {
      SV *rv;
      if (iv == 0)
--- 535,541 ----
   * (This is effectively a C-level equivalent of a tied variable).
   * There is no "set" function as the variables are read-only.
   */
! I32 cur_val(pTHX_ IV iv, SV *sv)
  {
      SV *rv;
      if (iv == 0)
*** ../vim61.472/src/version.c	Fri Apr 18 14:33:01 2003
--- src/version.c	Mon Apr 21 19:07:11 2003
***************
*** 613,614 ****
--- 618,621 ----
  {   /* Add new patch number below this line */
+ /**/
+     473,
  /**/

-- 
Apparently, 1 in 5 people in the world are Chinese.  And there are 5
people in my family, so it must be one of them.  It's either my mum 
or my dad.  Or my older brother Colin.  Or my younger brother 
Ho-Cha-Chu.  But I think it's Colin.

 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
///          Creator of Vim - Vi IMproved -- http://www.Vim.org          \\\
\\\              Project leader for A-A-P -- http://www.A-A-P.org        ///
 \\\     Help AIDS victims, buy at Amazon -- http://ICCF.nl/click1.html ///