X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=t%2Ftest_spool%2Fversions%2Findices%2Fmake_index_from_stubs.pl;fp=t%2Ftest_spool%2Fversions%2Findices%2Fmake_index_from_stubs.pl;h=72879353fe1bbb776a0d1a8bb472e8a07c2e7cc5;hb=a3dc12e881d7e021908aac6a5f8a2294fb7e6ca0;hp=dbda1b002aa6d317aa9509e303230d5d7232d2c2;hpb=92e2aba12abce4d75cbffcfd571af7922e5cf6ff;p=bugscan.git

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 dbda1b0..7287935 100755
--- 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 $/;