SOURCES: perl-Parse-Lex-strict.patch (NEW) - small fixes, thx Radek

[agaran]

Author: agaran                       Date: Fri Jul  6 11:22:59 2007 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- small fixes, thx Radek

---- Files affected:
SOURCES:
   perl-Parse-Lex-strict.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/perl-Parse-Lex-strict.patch
diff -u /dev/null SOURCES/perl-Parse-Lex-strict.patch:1.1
--- /dev/null	Fri Jul  6 13:22:59 2007
+++ SOURCES/perl-Parse-Lex-strict.patch	Fri Jul  6 13:22:54 2007
@@ -0,0 +1,18 @@
+diff -Nur ParseLex-2.15/lib/Parse/Template.pm ParseLex-2.15.x/lib/Parse/Template.pm
+--- ParseLex-2.15/lib/Parse/Template.pm	1999-09-23 10:16:28.000000000 +0200
++++ ParseLex-2.15.x/lib/Parse/Template.pm	2007-07-06 13:18:31.000000000 +0200
+@@ -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);
================================================================