--- ParseLex-2.15/lib/Parse/LexEvent.pm~	1999-09-27 15:14:25 +0400
+++ ParseLex-2.15/lib/Parse/LexEvent.pm	2004-10-02 11:18:27 +0400
@@ -1,3 +1,4 @@
+#!/usr/bin/perl -w
 # Copyright (c) Philippe Verdret, 1999
 
 require 5.005;
--- ParseLex-2.15/lib/Parse/Template.pm~	1999-09-23 12:16:28 +0400
+++ ParseLex-2.15/lib/Parse/Template.pm	2004-10-03 00:07:18 +0400
@@ -1,4 +1,5 @@
-use strict
+#!/usr/bin/perl
+use strict;
 require 5.004;
 package Parse::Template;
 $Parse::Template::VERSION = '0.32';
@@ -132,7 +133,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);
--- ParseLex-2.15/t/test4.t~	1999-09-23 12:16:26 +0400
+++ ParseLex-2.15/t/test4.t	2004-10-04 00:50:00 +0400
@@ -55,4 +55,4 @@
 [main::lexer|Parse::CLex] Token read (NEWLINE, \n): 
 
 [main::lexer|Parse::CLex] Token read (ERROR, .*): this is an invalid string with a "" in it"
-can't analyze: "this is an invalid string with a "" in it"" at examples/ctokenizer.pl line 17, <DATA> chunk 4.
+can't analyze: "this is an invalid string with a "" in it"" at examples/ctokenizer.pl line 17, <DATA> line 4.