perl-Template-Toolkit-stashXS.patch

   1 http://www.nntp.perl.org/group/perl.perl5.porters/2006/01/msg108750.html
   2
   3 The following comes from http://rt.cpan.org/Public/Bug/Display.html?id=22506
   4
   5 Still segfaults in assign() on t/tiedhash.t -- SvRV(root) starts returning
   6 null after a call to sv_isobject(root); this doesn't seem right and the code
   7 later doesn't expect it.
   8
   9
  10 On Mon Oct 23 11:25:30 2006, SMPETERS wrote:
  11 > A missing pair of parens causes Template-Toolkit 2.15 to fail to compile
  12 > with bleadperl.  The following patch fixes the problem.
  13 >
  14
  15 Actually, there is also some test code that fails an assertion, so, the
  16 following patch fixes the compilation and the test failures.
  17
  18 --- xs/Stash.xs.old     2007-01-09 20:27:49.000000000 -0600
  19 +++ xs/Stash.xs 2007-01-09 22:06:30.000000000 -0600
  20 @@ -499,7 +499,7 @@
  21          }
  22
  23          /* drop-through if not an object or method not found  */
  24 -        switch SvTYPE(SvRV(root)) {
  25 +        switch (SvTYPE(SvRV(root))) {
  26
  27          case SVt_PVHV:                             /* HASH */
  28              roothv = (HV *) SvRV(root);
  29 @@ -991,7 +991,7 @@
  30      STRLEN jlen;
  31      char *joint;
  32
  33 -    if ((svp = av_fetch(args, 0, FALSE)) != NULL) {
  34 +    if (args && (svp = av_fetch(args, 0, FALSE)) != NULL) {
  35          joint = SvPV(*svp, jlen);
  36      } else {
  37          joint = " ";