logo

live-bootstrap

Mirror of <https://github.com/fosslinux/live-bootstrap>

undefined_hack.patch (4278B)

    

  1. SPDX-FileCopyrightText: 2021 fosslinux <fosslinux@aussies.space>
  3. SPDX-License-Identifier: Artistic-1.0-Perl
  5. There are a bunch of aliases that perl's build system somehow makes but
  6. I'm not sure how to appropriately do them, so just patch them.
  8. --- perl-5.10.1/lib/ExtUtils/Constant.pm	2021-04-20 21:06:43.272663878 +1000
  9. +++ perl-5.10.1/lib/ExtUtils/Constant.pm	2021-04-20 21:07:11.116805426 +1000
  10. @@ -253,11 +253,11 @@
  11.          switch (type) {
  12.          case PERL_constant_NOTFOUND:
  13.            sv =
  14. -	    sv_2mortal(newSVpvf("%s is not a valid $package_sprintf_safe macro", s));
  15. +	    sv_2mortal(Perl_newSVpvf("%s is not a valid $package_sprintf_safe macro", s));
  16.            PUSHs(sv);
  17.            break;
  18.          case PERL_constant_NOTDEF:
  19. -          sv = sv_2mortal(newSVpvf(
  20. +          sv = sv_2mortal(Perl_newSVpvf(
  21.  	    "Your vendor has not defined $package_sprintf_safe macro %s, used",
  22.  				   s));
  23.            PUSHs(sv);
  24. @@ -288,7 +288,7 @@
  25.    }
  26.    $xs .= << "EOT";
  27.          default:
  28. -          sv = sv_2mortal(newSVpvf(
  29. +          sv = sv_2mortal(Perl_newSVpvf(
  30.  	    "Unexpected return type %d while processing $package_sprintf_safe macro %s, used",
  31.                 type, s));
  32.            PUSHs(sv);
  33. --- perl-5.10.1/ext/Data-Dumper/Dumper.xs	2009-06-11 02:42:23.000000000 +1000
  34. +++ perl-5.10.1/ext/Data-Dumper/Dumper.xs	2021-04-21 18:19:32.548468344 +1000
  35. @@ -312,7 +312,7 @@
  36.  	{
  37.  	    dSP; ENTER; SAVETMPS; PUSHMARK(sp);
  38.  	    XPUSHs(val); PUTBACK;
  39. -	    i = perl_call_method(SvPVX_const(freezer), G_EVAL|G_VOID);
  40. +	    i = call_method(SvPVX_const(freezer), G_EVAL|G_VOID);
  41.  	    SPAGAIN;
  42.  	    if (SvTRUE(ERRSV))
  43.  		warn("WARNING(Freezer method call failed): %"SVf"", ERRSV);
  44. @@ -515,7 +515,7 @@
  45.  	
  46.  	    SV * const ixsv = newSViv(0);
  47.  	    /* allowing for a 24 char wide array index */
  48. -	    New(0, iname, namelen+28, char);
  49. +	    Newx(iname, namelen+28, char);
  50.  	    (void)strcpy(iname, name);
  51.  	    inamelen = namelen;
  52.  	    if (name[0] == '@') {
  53. @@ -660,7 +660,7 @@
  54.  		if (sortkeys != &PL_sv_yes) {
  55.  		    dSP; ENTER; SAVETMPS; PUSHMARK(sp);
  56.  		    XPUSHs(sv_2mortal(newRV_inc(ival))); PUTBACK;
  57. -		    i = perl_call_sv(sortkeys, G_SCALAR | G_EVAL);
  58. +		    i = call_sv(sortkeys, G_SCALAR | G_EVAL);
  59.  		    SPAGAIN;
  60.  		    if (i) {
  61.  			sv = POPs;
  62. @@ -745,7 +745,7 @@
  63.                      }
  64.                      else {
  65.  		        nticks = num_q(key, klen);
  66. -			New(0, nkey_buffer, klen+nticks+3, char);
  67. +			Newx(nkey_buffer, klen+nticks+3, char);
  68.                          nkey = nkey_buffer;
  69.  			nkey[0] = '\'';
  70.  			if (nticks)
  71. @@ -772,7 +772,7 @@
  72.  		    char *extra;
  73.  		    I32 elen = 0;
  74.  		    newapad = newSVsv(apad);
  75. -		    New(0, extra, klen+4+1, char);
  76. +		    Newx(extra, klen+4+1, char);
  77.  		    while (elen < (klen+4))
  78.  			extra[elen++] = ' ';
  79.  		    extra[elen] = '\0';
  80. @@ -829,7 +829,7 @@
  81.  	        char *npack;
  82.  	        char *npack_buffer = NULL;
  83.  
  84. -	        New(0, npack_buffer, plen+pticks+1, char);
  85. +	        Newx(npack_buffer, plen+pticks+1, char);
  86.  	        npack = npack_buffer;
  87.  	        plen += esc_q(npack, realpack, plen);
  88.  	        npack[plen] = '\0';
  89. @@ -903,7 +903,7 @@
  90.              if (len > 10) {
  91.                /* Looks like we're on a 64 bit system.  Make it a string so that
  92.                   if a 32 bit system reads the number it will cope better.  */
  93. -              sv_catpvf(retval, "'%s'", tmpbuf);
  94. +              Perl_sv_catpvf(retval, "'%s'", tmpbuf);
  95.              } else
  96.                sv_catpvn(retval, tmpbuf, len);
  97.  	}
  98. @@ -1036,7 +1036,7 @@
  99.  
  100.  	    if (!SvROK(href)) {		/* call new to get an object first */
  101.  		if (items < 2)
  102. -		    croak("Usage: Data::Dumper::Dumpxs(PACKAGE, VAL_ARY_REF, [NAME_ARY_REF])");
  103. +		    Perl_croak_nocontext("Usage: Data::Dumper::Dumpxs(PACKAGE, VAL_ARY_REF, [NAME_ARY_REF])");
  104.  		
  105.  		ENTER;
  106.  		SAVETMPS;
  107. @@ -1047,7 +1047,7 @@
  108.  		if (items >= 3)
  109.  		    XPUSHs(sv_2mortal(newSVsv(ST(2))));
  110.  		PUTBACK;
  111. -		i = perl_call_method("new", G_SCALAR);
  112. +		i = call_method("new", G_SCALAR);
  113.  		SPAGAIN;
  114.  		if (i)
  115.  		    href = newSVsv(POPs);
  116. @@ -1234,7 +1234,7 @@
  117.  		SvREFCNT_dec(valstr);
  118.  	    }
  119.  	    else
  120. -		croak("Call to new() method failed to return HASH ref");
  121. +		Perl_croak_nocontext("Call to new() method failed to return HASH ref");
  122.  	    if (gimme == G_SCALAR)
  123.  		XPUSHs(sv_2mortal(retval));
  124.  	}