- properly indent Examples section in pod generator

diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl
index e967568e1dc961940c8eb985d2fc2f578a27c6c7..7c3aa50bc94c10a28f65a42a5d637e44fe11581f 100755 (executable)
--- a/docs/autodocifier.pl
+++ b/docs/autodocifier.pl
@@ -69,8 +69,13 @@ sub pod_for_usage {
 
        # prepare example if one exists
        my $example = (defined $usage->{example})
-               ? "Example:\n\n$usage->{example}\n\n"
+               ? $usage->{example}
                : "";
+        $example = 
+               "Example:\n\n" .
+               join ("\n", 
+               map  { "    $_" } 
+               split("\n", $example)) . "\n\n";
 
        return
                "=item I<$name>".
@@ -222,4 +227,4 @@ John BEPPU <beppu@lineo.com>
 
 =cut
 
-# $Id: autodocifier.pl,v 1.15 2001/03/15 18:14:25 andersen Exp $
+# $Id: autodocifier.pl,v 1.16 2001/03/15 20:49:25 beppu Exp $