7 |
|
|
8 |
Requiraments: |
Requiraments: |
9 |
|
|
10 |
- Text::FastTemplate > 0.9 or apply following patch to version 0.9: |
- Text::FastTemplate >= 0.91 (version 0.9 will *NOT* work with pack!) |
11 |
|
|
|
--- FastTemplate.pm.0.9 Fri May 11 23:56:18 2001 |
|
|
+++ FastTemplate.pm Fri May 11 23:57:36 2001 |
|
|
@@ -7,7 +7,7 @@ |
|
|
use Carp; |
|
|
use File::Basename qw/ dirname /; |
|
|
|
|
|
-$VERSION = '0.9'; |
|
|
+$VERSION = '0.91'; |
|
|
|
|
|
# template tokens / block types |
|
|
use constant BASIC => 0; |
|
|
@@ -507,7 +507,7 @@ |
|
|
} |
|
|
elsif ( $blocks->[$block_index]->[BLOCK_TYPE] == IF ) |
|
|
{ |
|
|
- ( my $expression= $macro ) =~ s/##(\w+)##/\$$1/g; |
|
|
+ ( my $expression= $macro ) =~ s/##(\w+)##/\${$1}/g; |
|
|
push @block_code, |
|
|
sprintf( "\tif ( %s ) {\n", $expression), |
|
|
$self->_generate_block_code( $block_index, $blocks, $template), |
|
|
@@ -535,7 +535,7 @@ |
|
|
else |
|
|
{ |
|
|
$b =~ s/([@\$"\\])/\\$1/g; |
|
|
- $b =~ s/##(\w+?)##/\$$1/g; |
|
|
+ $b =~ s/##(\w+?)##/\${$1}/g; |
|
|
push @block_code, "\t\t\"$b\\n\"" . ( ref $z || ( $i == $#$code ) ? ";\n" : ".\n" ); |
|
|
} |
|
|
}; |
|