[Gpg4win-commits] r722 - trunk/src

[scm-commit@wald.intevation.org]

Author: marcus
Date: 2008-02-26 16:12:53 +0100 (Tue, 26 Feb 2008)
New Revision: 722

Modified:
   trunk/src/pkg-to-nsi.pl
Log:
Small fixes.


Modified: trunk/src/pkg-to-nsi.pl
===================================================================
--- trunk/src/pkg-to-nsi.pl	2008-02-26 14:34:29 UTC (rev 721)
+++ trunk/src/pkg-to-nsi.pl	2008-02-26 15:12:53 UTC (rev 722)
@@ -43,7 +43,7 @@
 $::op = '--inst';
 
 # Filter expressions.
-@::filter;
+@::filter = ();
 
 while ($ARGV[0] =~ m,^-,)
 {
@@ -95,7 +95,7 @@
 
 if ($::op eq '--inst')
 {
-    my $cdir;
+    my $cdir = "";
 
     foreach my $file (@::files)
     {
@@ -169,7 +169,7 @@
 	
 	# Delete file.
 	$file =~ m,(?:(.*)/)?([^/]+),;
-	my $dir = $1;
+	$dir = $1;
 	$dir_seen{$dir}++;
 	do
 	{