Imported Upstream version 2.5.1p1
[debian/amanda] / server-src / amtoc.pl.in
index d25010234792e7ad1c3418a9d4c706ffd9590c06..f32075af2e99e723abcf0d3a9b93e3d0c23bd661 100644 (file)
@@ -166,7 +166,7 @@ while ( <$IF> ) {
   $level = $6;
   switch: {
     /START taper/ && do {
-      $tocfilename=&tfn($level) if ($#subs >= 0);
+      $tocfilename=&tfn($chunk) if ($#subs >= 0);
       if (!$tocfilename || ($tocfilename eq '-')) {$OF=STDOUT;}
       else {
           die ("Cannot open tocfile $tocfilename") unless open(OF,">$tocfilename");