diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-26 11:45:03 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-05-26 11:45:03 +0000 |
| commit | 280a36f0f54fc60104070e25b4e3503bfe3d15de (patch) | |
| tree | 0849dff4b228ce401129b29413d506fb67985d28 | |
| parent | b1c97ae634d378b73cc486a04e087204a7e5a1cc (diff) | |
| download | perl-280a36f0f54fc60104070e25b4e3503bfe3d15de.tar.gz | |
-mFoo option now forces -uFoo.
p4raw-id: //depot/perlext/Compiler@22
| -rw-r--r-- | B/CC.pm | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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)) { |