-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 (file)
--- 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)) {