ossp-pkg/shtool/shtoolize.in 1.33 -> 1.34
--- shtoolize.in 2004/01/01 16:54:20 1.33
+++ shtoolize.in 2004/02/12 16:06:27 1.34
@@ -181,6 +181,9 @@
$code .= $_ while (<FP>);
close(FP);
+ # strip away embedded documentation
+ $code =~ s|##\n##\s+manual\s+page\n##\s+.+$||si;
+
# determine attributes
my $len = length($code);
my $oneline = '';
@@ -451,7 +454,7 @@
foreach $name (@used) {
print OUT " $name )\n";
$code = $SCRIPT->{$name}->{CODE1};
- $code =~ s|^| |mg;
+ $code =~ s|^(.)| $1|mg;
sub mysub {
my ($prolog, $code, $epilog) = @_;
$code =~ s|^ ||mg;
@@ -496,7 +499,7 @@
foreach $name (@used) {
print OUT "$name )\n";
$code = $SCRIPT->{$name}->{CODE2};
- $code =~ s|^| |mg;
+ $code =~ s|^(.)| $1|mg;
sub mysub {
my ($prolog, $code, $epilog) = @_;
$code =~ s|^ ||mg;
|
|
