r24916 - in /trunk/libhtml-template-pro-perl: Changes META.yml Makefile.PL debian/changelog lib/HTML/Template/Pro.pm perl-HTML-Template-Pro.spec procore.c
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon Sep 8 17:45:04 UTC 2008
Author: gregoa
Date: Mon Sep 8 17:45:00 2008
New Revision: 24916
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24916
Log:
New upstream release.
Modified:
trunk/libhtml-template-pro-perl/Changes
trunk/libhtml-template-pro-perl/META.yml
trunk/libhtml-template-pro-perl/Makefile.PL
trunk/libhtml-template-pro-perl/debian/changelog
trunk/libhtml-template-pro-perl/lib/HTML/Template/Pro.pm
trunk/libhtml-template-pro-perl/perl-HTML-Template-Pro.spec
trunk/libhtml-template-pro-perl/procore.c
Modified: trunk/libhtml-template-pro-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/Changes?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/Changes (original)
+++ trunk/libhtml-template-pro-perl/Changes Mon Sep 8 17:45:00 2008
@@ -149,3 +149,7 @@
0.70 Thu Apr 3 22:12:33 EEST 2008
- fixed regression in include scope (reported by Naxim Babych)
+
+0.71 Sat Aug 16 15:05:01 EEST 2008
+ - fixed evaluation of variables in 'if' even in shadow context
+ - fixed misconfig on Darvin (CPAN #38013)
Modified: trunk/libhtml-template-pro-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/META.yml?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/META.yml (original)
+++ trunk/libhtml-template-pro-perl/META.yml Mon Sep 8 17:45:00 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: HTML-Template-Pro
-version: 0.70
+version: 0.71
abstract: Perl/XS module to use HTML Templates from CGI scripts
license: ~
generated_by: ExtUtils::MakeMaker version 6.32
Modified: trunk/libhtml-template-pro-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/Makefile.PL?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/Makefile.PL (original)
+++ trunk/libhtml-template-pro-perl/Makefile.PL Mon Sep 8 17:45:00 2008
@@ -29,7 +29,8 @@
$DEF{MMAP}=has_mmap();
}
-$DEF{INT64_NAME} = $Config{i64type};
+$DEF{INT64_NAME} = find_int64();
+$DEF{INT64_NAME} ||= $Config{i64type};
my $i;
for ($i=0; $i<@ARGV; $i++) {
@@ -165,8 +166,8 @@
# those tests are copied from Time-HiRes-01.20
sub try_compile_and_link {
- my ($c, $cccmd, $ccflags) = @_;
-
+ my ($c, $cccmd, $ccflags, $verbose) = @_;
+ $verbose = 1 unless defined $verbose;
my ($ok) = 0;
my ($tmp) = File::Spec->catfile( File::Spec->tmpdir(), "tmp$$" );
local(*TMPC);
@@ -188,7 +189,7 @@
}
$cccmd = "$cc -o $tmp $ccflags $tmp.c @$LIBS"
unless (defined $cccmd);
- print "trying $cccmd\n";
+ print "trying $cccmd\n" if $verbose;
system($cccmd);
if ($^O eq 'VMS') {
$ok = -s "$tmp$obj_ext" && -x _;
@@ -261,3 +262,27 @@
return 0;
}
+sub find_int64 {
+ foreach my $type ('long long','long','int') {
+ return $type if try_as_int64($type);
+ }
+ return;
+}
+
+sub try_as_int64 {
+ my $type=shift;
+ print "looking for int64: trying $type...";
+ if (try_compile_and_link('
+ int main (int argc, char** argv)
+ {
+ if (sizeof('.$type.')==8) return 0;
+ return sizeof('.$type.');
+ }
+',undef, '',0)){
+ print "Ok.\n";
+ return 1;
+ }
+ print "no.\n";
+ return 0;
+}
+
Modified: trunk/libhtml-template-pro-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/debian/changelog?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/debian/changelog (original)
+++ trunk/libhtml-template-pro-perl/debian/changelog Mon Sep 8 17:45:00 2008
@@ -1,3 +1,9 @@
+libhtml-template-pro-perl (0.71-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Mon, 08 Sep 2008 19:43:56 +0200
+
libhtml-template-pro-perl (0.70-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libhtml-template-pro-perl/lib/HTML/Template/Pro.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/lib/HTML/Template/Pro.pm?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/lib/HTML/Template/Pro.pm (original)
+++ trunk/libhtml-template-pro-perl/lib/HTML/Template/Pro.pm Mon Sep 8 17:45:00 2008
@@ -9,7 +9,7 @@
use vars qw($VERSION @ISA);
@ISA = qw(DynaLoader);
-$VERSION = '0.70';
+$VERSION = '0.71';
bootstrap HTML::Template::Pro $VERSION;
Modified: trunk/libhtml-template-pro-perl/perl-HTML-Template-Pro.spec
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/perl-HTML-Template-Pro.spec?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/perl-HTML-Template-Pro.spec (original)
+++ trunk/libhtml-template-pro-perl/perl-HTML-Template-Pro.spec Mon Sep 8 17:45:00 2008
@@ -6,7 +6,7 @@
%define module HTML-Template-Pro
Name: perl-%module
-Version: 0.70
+Version: 0.71
Release: alt1
Packager: Igor Yu. Vlasenko <viy at altlinux.org>
@@ -50,10 +50,13 @@
%files
%doc README Changes README.ru FAQ
-%perl_vendor_privlib/*
+%perl_vendor_archlib/*
%perl_vendor_man3dir/*
%changelog
+* Sat Aug 16 2008 Igor Vlasenko <viy at altlinux.ru> 0.71-alt1
+- new version; see Changes
+
* Thu Apr 03 2008 Igor Vlasenko <viy at altlinux.ru> 0.70-alt1
- new version; see Changes
Modified: trunk/libhtml-template-pro-perl/procore.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-template-pro-perl/procore.c?rev=24916&op=diff
==============================================================================
--- trunk/libhtml-template-pro-perl/procore.c (original)
+++ trunk/libhtml-template-pro-perl/procore.c Mon Sep 8 17:45:00 2008
@@ -400,7 +400,8 @@
iftag.tag=HTML_TEMPLATE_TAG_IF;
iftag.vcontext=state->is_visible;
iftag.position=state->cur_pos; /* unused */
- if (is_var_true(state,name)) {
+ /* state->is_visible && means that we do not evaluate variable in shadow */
+ if (state->is_visible && is_var_true(state,name)) {
iftag.value=1;
/* state->is_visible is not touched */
} else {
@@ -419,16 +420,16 @@
iftag.tag=HTML_TEMPLATE_TAG_UNLESS;
iftag.vcontext=state->is_visible;
iftag.position=state->cur_pos; /* unused */
- if (is_var_true(state,name)) {
+ /* state->is_visible && means that we do not evaluate variable in shadow */
+ if (state->is_visible && !is_var_true(state,name)) {
+ iftag.value=1;
+ /* state->is_visible is not touched */
+ } else {
iftag.value=0;
- tagstack_push(&(state->tag_stack), iftag);
state->is_visible=0;
- } else {
- iftag.value=1;
- tagstack_push(&(state->tag_stack), iftag);
- /* state->is_visible is not touched */
- }
- if (debuglevel>3) tmpl_log(state,TMPL_LOG_DEBUG2,"unless:visible context =%d value=%d ",iftag.vcontext,iftag.value);
+ }
+ tagstack_push(&(state->tag_stack), iftag);
+ if (debuglevel>3) tmpl_log(state,TMPL_LOG_DEBUG2,"tag_handler_unless:visible context =%d value=%d ",iftag.vcontext,iftag.value);
}
static
More information about the Pkg-perl-cvs-commits
mailing list