avoid warnings when there's no subs to autosplit

p4raw-id: //depot/perl@4873

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index 3cb01a1..936edc4 100644 (file)
--- a/lib/AutoSplit.pm
+++ b/lib/AutoSplit.pm
@@ -352,8 +352,10 @@ EOT
        }
        $last_package = $this_package if defined $this_package;
     }
-    print OUT @cache,"1;\n# end of $last_package\::$subname\n";
-    close(OUT);
+    if ($subname) {
+       print OUT @cache,"1;\n# end of $last_package\::$subname\n";
+       close(OUT);
+    }
     close(IN);
     
     if (!$keep){  # don't keep any obsolete *.al files in the directory