[p5sagit/p5-mst-13.2.git] / autosplit

#!./miniperl

chdir "lib" if -d "lib";

$package = shift;

$filename = "$package.pm";
open(IN, $filename) || die "Can't open $filename: $!\n";
while (<IN>) {
    last if /^__END__/;
}
$_ or die "Can't find __END__ in $filename\n";

mkdir "auto/$package", 0777 unless -d "auto/$package";
while (<IN>) {
    if (/^sub ([\w:]+)/) {
	$name = $1;
	print OUT "1;\n";
	$newname = "auto/$package/$name.al";
	open(OUT, ">$newname") or warn "Can't create $newname: $!\n";
	print OUT <<"END";
# NOTE:  Derived from $package.pm.  Changes made here will be lost.
package $package;

END
    }
    print OUT $_;
}
print OUT "1;\n";
Commit	Line	Data
2304df62	1	#!./miniperl
	2
	3	chdir "lib" if -d "lib";
	4
	5	$package = shift;
	6
	7	$filename = "$package.pm";
	8	open(IN, $filename) \|\| die "Can't open $filename: $!\n";
	9	while (<IN>) {
	10	last if /^__END__/;
	11	}
	12	$_ or die "Can't find __END__ in $filename\n";
	13
	14	mkdir "auto/$package", 0777 unless -d "auto/$package";
	15	while (<IN>) {
	16	if (/^sub ([\w:]+)/) {
	17	$name = $1;
	18	print OUT "1;\n";
	19	$newname = "auto/$package/$name.al";
	20	open(OUT, ">$newname") or warn "Can't create $newname: $!\n";
	21	print OUT <<"END";
	22	# NOTE: Derived from $package.pm. Changes made here will be lost.
	23	package $package;
	24
	25	END
	26	}
	27	print OUT $_;
	28	}
	29	print OUT "1;\n";