[improve help messages for -d and -f flags
John Meacham <john@repetae.net>**20100728043754
 Ignore-this: 2222fcbd64b882dbbee94bc6f091b7a1
] hunk ./utils/opt_sets.prl 8
+use Text::Wrap;
hunk ./utils/opt_sets.prl 115
+$Text::Wrap::columns = 72;
+$Text::Wrap::unexpand = 0;
hunk ./utils/opt_sets.prl 119
-    $help .= "\\n-- $_ --\\n";
+    $help .= "\n-- $_ --\n";
hunk ./utils/opt_sets.prl 121
-        $help .= " $h{$j}{oname}\\n    $h{$j}{desc}\\n";
+        my $name = $h{$j}{oname};
+        $help .= wrap(sprintf("%-15s ", $name),' 'x16, $h{$j}{desc}) . "\n";
+#        my @words = split /\s+/, $h{$j}{desc};
+#        $help .= " $h{$j}{oname}\\n    $h{$j}{desc}\\n";
hunk ./utils/opt_sets.prl 128
+#print STDERR $help, "\n";
+$help =~ s/\n/\\n/g;
+