From 280a36f0f54fc60104070e25b4e3503bfe3d15de Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Mon, 26 May 1997 11:45:03 +0000
Subject: -mFoo option now forces -uFoo.

p4raw-id: //depot/perlext/Compiler@22
---
 B/CC.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/B/CC.pm b/B/CC.pm
index 6bb3acd645..68287d00db 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)) {
-- 
cgit v1.2.1