--- shtoolize.in 2001/06/14 19:02:54 1.24
+++ shtoolize.in 2001/09/23 10:58:10 1.25
@@ -255,15 +255,20 @@
my $u = $SCRIPT->{$name}->{USAGE};
my $u2 = '';
my $u3 = '';
+ my $u4 = '';
if ($u =~ m|^(.{50}.*?)\s+(.+)$|) {
($u, $u2) = ($1, $2);
}
if ($u2 =~ m|^(.{50}.*?)\s+(.+)$|) {
($u2, $u3) = ($1, $2);
}
+ if ($u3 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u3, $u4) = ($1, $2);
+ }
$usage .= sprintf(" echo ' %-8s %s'\n", $name, $u);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u2) if ($u2);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u3) if ($u3);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u4) if ($u4);
}
if (@unused) {
$usage .= " echo ''\n";
@@ -271,11 +276,21 @@
foreach $name (@unused) {
my $u = $SCRIPT->{$name}->{USAGE};
my $u2 = '';
+ my $u3 = '';
+ my $u4 = '';
if ($u =~ m|^(.{50}.*?)\s+(.+)$|) {
($u, $u2) = ($1, $2);
}
+ if ($u2 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u2, $u3) = ($1, $2);
+ }
+ if ($u3 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u3, $u4) = ($1, $2);
+ }
$usage .= sprintf(" echo ' %-8s %s'\n", $name, $u);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u2) if ($u2);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u3) if ($u3);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u4) if ($u4);
}
}
$usage =~ s|\n$||s;
|
