Change 34304 by [EMAIL PROTECTED] on 2008/09/07 11:59:05

        "Can't modify division (/) in division (/)"...
        Oh, that will be a // operator, then. Oops.

Affected files ...

... //depot/maint-5.8/perl/installman#9 edit

Differences ...

==== //depot/maint-5.8/perl/installman#9 (xtext) ====
Index: perl/installman
--- perl/installman#8~34289~    2008-09-05 16:04:00.000000000 -0700
+++ perl/installman     2008-09-07 04:59:05.000000000 -0700
@@ -44,8 +44,10 @@
 die $usage if $opts{help};
 
 foreach my $pre (qw(man1 man3)) {
-    $opts{"${pre}dir"} //= $opts{destdir} . $Config{"install${pre}dir"};
-    $opts{"${pre}ext"} //= $Config{"${pre}ext"};
+    $opts{"${pre}dir"} = $opts{destdir} . $Config{"install${pre}dir"}
+       unless defined $opts{"${pre}dir"};
+    $opts{"${pre}ext"} = $Config{"${pre}ext"}
+       unless defined $opts{"${pre}ext"};
 }
 $opts{silent} ||= $opts{S};
 $opts{notify} ||= $opts{n};
End of Patch.

Reply via email to