fix stupid missing asign in populate_index

[bugscan.git] / t / test_spool / versions / indices / make_index_from_stubs.pl

diff --git a/t/test_spool/versions/indices/make_index_from_stubs.pl b/t/test_spool/versions/indices/make_index_from_stubs.pl
index dbda1b002aa6d317aa9509e303230d5d7232d2c2..72879353fe1bbb776a0d1a8bb472e8a07c2e7cc5 100755 (executable)
--- a/t/test_spool/versions/indices/make_index_from_stubs.pl
+++ b/t/test_spool/versions/indices/make_index_from_stubs.pl
@@ -28,7 +28,7 @@ sub open_index {
 
 # populate the index with the given stubs
 sub populate_index{
-    my ($tie,$stubs);
+    my ($tie,$stubs) = @_;
     for my $stub (@{$stubs}) {
         my $fh = IO::File->new($stub,'r');
         local $/;