Documentation generation only useful for distribution author

fangly · Apr 18, 2014 · b2e89b4 · b2e89b4
1 parent ad82a43
commit b2e89b4
Showing 1 changed file with 14 additions and 12 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -100,18 +100,20 @@ auto_doc();
 
 
 sub auto_doc {
-   print "*** Building doc...\n";
-   # Generate scripts/copyrighter.pod
-   my @args = ($^X, '-Ilib', 'scripts/copyrighter', '--podfile');
-   system(@args) == 0 or die "System call to '@args' failed:\n$?\n";
-   my $pod = 'scripts/copyrighter.pod';
-   my $man_dir = 'man';
-   if (not -d $man_dir) {
-      mkdir $man_dir or die "Could not write folder $man_dir:\n$!\n";
+   if ($Module::Install::AUTHOR) {
+      print "*** Building doc...\n";
+      # Generate scripts/copyrighter.pod
+      my @args = ($^X, '-Ilib', 'scripts/copyrighter', '--podfile');
+      system(@args) == 0 or die "System call to '@args' failed:\n$?\n";
+      my $pod = 'scripts/copyrighter.pod';
+      my $man_dir = 'man';
+      if (not -d $man_dir) {
+         mkdir $man_dir or die "Could not write folder $man_dir:\n$!\n";
+      }
+      my $clean = 1;
+      readme_from $pod, $clean, 'txt', 'README';
+      readme_from $pod, $clean, 'htm', 'README.htm';
+      readme_from $pod, $clean, 'man', "$man_dir/copyrighter.1";
    }
-   my $clean   = 1;
-   readme_from $pod, $clean, 'txt', 'README';
-   readme_from $pod, $clean, 'htm', 'README.htm';
-   readme_from $pod, $clean, 'man', "$man_dir/copyrighter.1";
    return 1;
 }