[libinline-java-perl] 294/398: ok

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to tag 0.55
in repository libinline-java-perl.

commit 12bcfe8df3f8a3f46e172eb6171985e05112d361
Author: patrick_leb <>
Date:   Sat Feb 28 17:53:57 2004 +0000

    ok
---
 Makefile.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Makefile.PL b/Makefile.PL
index a761c8c..9a47307 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -138,7 +138,7 @@ sub expand_macros {
 	my $mm = shift ;
 	my $var = shift ;
 
-	my $val = $mm->{var} ;
+	my $val = $mm->{$var} ;
 	while ($val =~ s/\$\((.*?)\)/$mm->{$1}/){}
 	$val =~ s/\\/\\\\/g ;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libinline-java-perl.git