Home Explore Help
Sign In
openpkg
/
openpkg-packages
Watch 2
Star 0
Fork 0
Files Issues 0 Pull Requests 0
Tree: e230f17534
Branches Tags
openpkg-pack...
/
perl-util
/
perl-util.patch

perl-util.patch 920 B
History Raw

1234567891011121314151617181920212223242526272829303132333435 
  1. Index: Alias-2.32/Alias.xs
    2. 

  2. --- Alias-2.32/Alias.xs.orig	1999-05-01 04:11:09.000000000 +0200
    3. 

  3. +++ Alias-2.32/Alias.xs	2011-06-19 15:08:26.000000000 +0200
    4. 

  4. @@ -15,6 +15,10 @@
    5. 

  5.  #define PERL_SUBVERSION       SUBVERSION
    6. 

  6.  #endif
    7. 

  7.  
    8. 

  8. +#ifndef GvCV_set
    9. 

  9. +#define GvCV_set(gv,cv) GvCV((gv)) = (cv)
    10. 

  10. +#endif
    11. 

  11. +
    12. 

  12.  #if PERL_REVISION == 5 && (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION <= 75 ))
    13. 

  13.  
    14. 

  14.  #define PL_stack_sp	stack_sp
    15. 

  15. @@ -96,6 +100,7 @@
    16. 

  16.  		(void)hv_iterinit(hv);
    17. 

  17.  		while ((val = hv_iternextsv(hv, &key, &klen))) {
    18. 

  18.  		    GV *gv;
    19. 

  19. +		    CV *cv;
    20. 

  20.  		    int stype = SvTYPE(val);
    21. 

  21.  		    int deref_this = 1;
    22. 

  22.  		    int deref_objects = 0;
    23. 

  23. @@ -205,8 +210,9 @@
    24. 

  24.  			save_gp(gv,TRUE);   /* hide previous entry in symtab */
    25. 

  25.  			break;
    26. 

  26.  		    case SVt_PVCV:
    27. 

  27. -			SAVESPTR(GvCV(gv));
    28. 

  28. -			GvCV(gv) = Null(CV*);
    29. 

  29. +		        cv = GvCV(gv);
    30. 

  30. +			SAVESPTR(cv);
    31. 

  31. +			GvCV_set(gv,Null(CV*));
    32. 

  32.  			break;
    33. 

  33.  		    default:
    34. 

  34.  			save_scalar(gv);
    35. 

  35.