X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FAutoSplit.pm;h=3c45d9211320ad81b050ce1d3d9ae34878c96fe2;hb=0bd43963443f227c8bd1734af34fc6e6a7d2d54e;hp=bf4d81145495cd6d029ca1e1d39ce9fbde162173;hpb=64a3d80f001e333a9280dbb6ecc790d2991874df;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index bf4d811..3c45d92 100644
--- a/lib/AutoSplit.pm
+++ b/lib/AutoSplit.pm
@@ -238,6 +238,7 @@ sub autosplit_file {
 	$in_pod = 1 if /^=\w/;
 	$in_pod = 0 if /^=cut/;
 	next if ($in_pod || /^=cut/);
+        next if /^\s*#/;
 
 	# record last package name seen
 	$def_package = $1 if (m/^\s*package\s+([\w:]+)\s*;/);