Update upstream source from tag 'upstream/0.9523'

Update to upstream version '0.9523'
with Debian dir 6d2c5b75761d159174423b611ecec801659d986f

7 files changed, 17 insertions, 6 deletions

diff --git a/Changes b/Changes
index 5cd83ad..19f273d 100644
--- a/Changes
+++ b/Changes
@@ -337,3 +337,8 @@ Revision history for Perl extension HTML::Template::Pro.
 	- fixed memory leak in perl wrapper code. libhtmltmplpro
 	  was not affected by it.
 	- closed rt.cpan.org #78121 - 'I found a memory leak'
+
+0.9523 Wed Dec 15 02:05:11 EET 2021
+	- fixed memory leak in perl wrapper code. libhtmltmplpro
+	  was not affected by it.
+	- closed rt.cpan.org #140477 - 'Possible memory leak'
diff --git a/META.json b/META.json
index 003f2ab..5b558f6 100644
--- a/META.json
+++ b/META.json
@@ -40,6 +40,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "0.9522",
+   "version" : "0.9523",
    "x_serialization_backend" : "JSON::PP version 4.02"
 }
diff --git a/META.yml b/META.yml
index a21f72d..ab214dc 100644
--- a/META.yml
+++ b/META.yml
@@ -22,5 +22,5 @@ requires:
   File::Spec: '0'
   JSON: '2'
   Test::More: '0'
-version: '0.9522'
+version: '0.9523'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff --git a/Pro.xs b/Pro.xs
index 1335c3b..7dca851 100644
--- a/Pro.xs
+++ b/Pro.xs
@@ -59,6 +59,7 @@ static void write_chars_to_string (ABSTRACT_WRITER* OutputString, const char* be
 static
 ABSTRACT_VALUE* get_ABSTRACT_VALUE_impl (ABSTRACT_DATASTATE* none, ABSTRACT_MAP* ptr_HV, PSTRING name) {
   dTHX;       /* fetch context */
+  /*if (debuglevel>1) warn ("Pro.xs: get_ABSTRACT_VALUE_impl: ptr_HV=%p",ptr_HV);*/
   return hv_fetch((HV*) ptr_HV,name.begin, name.endnext-name.begin, 0);
 }
 
@@ -110,6 +111,7 @@ PSTRING ABSTRACT_VALUE2PSTRING_impl (ABSTRACT_DATASTATE* callback_state, ABSTRAC
   dTHX;       /* fetch context */
   if (valptr==NULL) return retval;
   SVval = *((SV**) valptr);
+  /*if (debuglevel>1) warn ("Pro.xs: ABSTRACT_VALUE2PSTRING_impl: SVval=%p valptr=%p",SVval,valptr);*/
   SvGETMAGIC(SVval);
   if (SvOK(SVval) && SvROK(SVval)) {
     if (SvTYPE(SvRV(SVval))==SVt_PVCV) {
@@ -198,6 +200,7 @@ const char* get_filepath (ABSTRACT_FINDFILE* callback_state, const char* filenam
   } else {
     perlprevfile=sv_2mortal(newSV(0));
   }
+  /*if (debuglevel>1) warn ("Pro.xs: get_filepath: self=%p prevfile=%p retval=%p",PerlSelfHTMLTemplatePro,perlprevfile,perlretval);*/
   ENTER ;
   SAVETMPS;
   PUSHMARK(SP) ;
@@ -425,9 +428,9 @@ char** get_array_of_strings_from_hash(pTHX_ HV* TheHash, char* key, struct perl_
       return NULL;
     } else {
       store = newSV(sizeof(char*)*(amax+2));
+      /*if (debuglevel>1) warn ("Pro.xs: get_array_of_strings_from_hash: store=%p",store);*/
       path = (char**) SvGROW(store, sizeof(char*)*(amax+2));
       av_push(((struct perl_callback_state*)callback_state)->pool_for_perl_vars,store);
-      SvREFCNT_inc(store);
       //path=(char**) malloc(sizeof(char*)*(amax+2));
       j=path;
       for (i=0; i<=amax;i++) {
diff --git a/README b/README
index 1db9406..7b15f95 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-HTML-Template-Pro version 0.9522
+HTML-Template-Pro version 0.9523
 ==============================
 
 DESCRIPTION
diff --git a/lib/HTML/Template/Pro.pm b/lib/HTML/Template/Pro.pm
index c730e01..ad66848 100644
--- a/lib/HTML/Template/Pro.pm
+++ b/lib/HTML/Template/Pro.pm
@@ -12,7 +12,7 @@ require Exporter;
 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
 @ISA = qw(DynaLoader Exporter);
 
-$VERSION = '0.9522';
+$VERSION = '0.9523';
 
 @EXPORT_OK = qw/ASK_NAME_DEFAULT ASK_NAME_AS_IS ASK_NAME_LOWERCASE ASK_NAME_UPPERCASE ASK_NAME_MASK/;
 %EXPORT_TAGS = (const => [qw/ASK_NAME_DEFAULT ASK_NAME_AS_IS ASK_NAME_LOWERCASE ASK_NAME_UPPERCASE ASK_NAME_MASK/]);
diff --git a/perl-HTML-Template-Pro.spec b/perl-HTML-Template-Pro.spec
index 4004e83..a7c0daf 100644
--- a/perl-HTML-Template-Pro.spec
+++ b/perl-HTML-Template-Pro.spec
@@ -6,7 +6,7 @@
 %define module HTML-Template-Pro
 
 Name: perl-%module
-Version: 0.9522
+Version: 0.9523
 Release: alt1
 
 Packager: Igor Yu. Vlasenko <viy@altlinux.org>
@@ -53,6 +53,9 @@ in the Perl script.
 #perl_vendor_man3dir/*
 
 %changelog
+* Wed Dec 15 2021 Igor Vlasenko <viy@altlinux.org> 0.9523-alt1
+- new version; see Changes
+
 * Mon Dec 06 2021 Igor Vlasenko <viy@altlinux.org> 0.9522-alt1
 - new version; see Changes