Index: Tk/MMutil.pm
===================================================================
RCS file: /usr/src/repositories/cvs/perl-proj/CPAN-SRC/module-packages/Tk-800/Tk/MMutil.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.4
diff -u -r1.1.1.1 -r1.4
--- Tk/MMutil.pm	23 Aug 2003 02:45:52 -0000	1.1.1.1
+++ Tk/MMutil.pm	23 Aug 2003 08:54:31 -0000	1.4
@@ -330,6 +330,17 @@
  my $self = shift;
  # Maybe always call UNIX version - we HTMLize them later
  local $_ = $self->MM::manifypods;
+
+ # %somian% Do NOT use EU::Command::MM which will flake on the extra args being
+ # added below, use our patched (to grok "perm_rw") stand-alone 'pod2man' instead:
+ if ($^O =~/linux/i) {
+     s/
+	POD2MAN_EXE\s+=\s+\$\(PERLRUN\)\s+"-MExtUtils::Command::MM"\s+\-e\s+pod2man
+      /POD2MAN_EXE = pod2man/x
+               and
+     s/"--"//;
+ }
+
  if ($] >= 5.00565)
   {
    s/(POD2MAN_EXE.*pod2man)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/;
Index: pod/Makefile.PL
===================================================================
RCS file: /usr/src/repositories/cvs/perl-proj/CPAN-SRC/module-packages/Tk-800/pod/Makefile.PL,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -r1.1.1.1 -r1.2
--- pod/Makefile.PL	23 Aug 2003 02:45:53 -0000	1.1.1.1
+++ pod/Makefile.PL	23 Aug 2003 08:56:36 -0000	1.2
@@ -1,6 +1,7 @@
-use ExtUtils::MakeMaker;
-
-WriteMakefile(
+# use ExtUtils::MakeMaker;
+use Tk::MMutil;
+# WriteMakefile(
+Tk::MMutil::TkExtMakefile(
 	NAME	=> 'Tk::pod',
 	# DIR	=> [ 'pTk' ],
 );
--- /home/somian/src/src.ref/stableperl/pod/pod2man	Thu Jul 24 00:08:59 2003
+++ /opt/perl/bin/5.8.0/pod2man	Sat Aug 23 03:49:54 2003
@@ -34,7 +34,7 @@
 GetOptions (\%options, 'section|s=s', 'release|r=s', 'center|c=s',
             'date|d=s', 'fixed=s', 'fixedbold=s', 'fixeditalic=s',
             'fixedbolditalic=s', 'name|n=s', 'official|o', 'quotes|q=s',
-            'lax|l', 'help|h', 'verbose|v') or exit 1;
+            'perm_rw:i', 'lax|l', 'help|h', 'verbose|v') or exit 1;
 pod2usage (0) if $options{help};
 
 # Official sets --center, but don't override things explicitly set.
@@ -53,12 +53,29 @@
 # Initialize and run the formatter, pulling a pair of input and output off at
 # a time.
 my $parser = Pod::Man->new (%options);
-my @files;
-do {
-    @files = splice (@ARGV, 0, 2);
-    print "  $files[1]\n" if $verbose;
-    $parser->parse_from_file (@files);
-} while (@ARGV);
+# my @files;
+
+# spliced in here from EU::Command::MM.pm
+
+do {{  # so 'next' works
+    my ($pod, $man) = splice(@ARGV, 0, 2);
+
+    print "Manifying $man\n" if $verbose;
+
+    $parser->parse_from_file($pod, $man)
+      or do { warn("Could not install $man\n");  next };
+
+    if (length $options{perm_rw}) {
+	chmod(oct($options{perm_rw}), $man)
+	  or do { warn("chmod $options{perm_rw} $man: $!\n"); next };
+    }
+}} while @ARGV;
+
+# do {
+#    @files = splice (@ARGV, 0, 2);
+#    print "  $files[1]\n" if $verbose;
+#    $parser->parse_from_file (@files);
+# } while (@ARGV);
 
 __END__