17 lines
608 B
Perl
17 lines
608 B
Perl
--- lib/Parse/Template.pm.orig Thu Sep 23 12:16:28 1999
|
|
+++ lib/Parse/Template.pm Fri Aug 20 16:03:23 2004
|
|
@@ -1,4 +1,4 @@
|
|
-use strict
|
|
+use strict;
|
|
require 5.004;
|
|
package Parse::Template;
|
|
$Parse::Template::VERSION = '0.32';
|
|
@@ -132,7 +132,7 @@
|
|
}
|
|
# evaluated expressions are not always available in (caller(1))[6];
|
|
if (defined($1) and $1 ne '') {
|
|
- $expr = $1; # what is the template expression?
|
|
+ my $expr = $1; # what is the template expression?
|
|
{ package DB; # what is the part name?
|
|
@DB::caller = caller(2); # why is this needed? /ee?
|
|
@DB::caller = caller(1);
|