From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 26 May 1997 11:45:03 +0000 (+0000)
Subject: -mFoo option now forces -uFoo.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=280a36f0f54fc60104070e25b4e3503bfe3d15de;p=p5sagit%2Fp5-mst-13.2.git

-mFoo option now forces -uFoo.

p4raw-id: //depot/perlext/Compiler@22
---

diff --git a/B/CC.pm b/B/CC.pm
index 6bb3acd..68287d0 100644
--- a/B/CC.pm
+++ b/B/CC.pm
@@ -1465,7 +1465,9 @@ sub compile {
 		$freetmps_each_bblock = 1 unless $freetmps_each_loop;
 	    }
 	} elsif ($opt eq "m") {
+	    $arg ||= shift @options;
 	    $module = $arg;
+	    push(@unused_sub_packages, $arg);
 	} elsif ($opt eq "D") {
             $arg ||= shift @options;
 	    foreach $arg (split(//, $arg)) {