diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-09 16:48:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-09 16:48:07 +0000 |
| commit | 1a535d6f832aa2cf6a84c3d2ed80bba27d8a7dbc (patch) | |
| tree | 3ab879751e8ea7734f77789673cfb54fe1e9012f /lib | |
| parent | 185419472dd17e55d44dadf1694c95abd0142e43 (diff) | |
| download | perl-1a535d6f832aa2cf6a84c3d2ed80bba27d8a7dbc.tar.gz | |
Nits noticed by Peter Prymmer.
p4raw-id: //depot/perl@8050
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_VMS.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index cc63d2f67a..57d61e9b40 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -15,7 +15,7 @@ require Exporter; use VMS::Filespec; use File::Basename; use File::Spec; -our($Revision, @ISA, $VERSION); +our($Revision, @ISA, $VERSION, $Verbose); # All on one line so MakeMaker can see it. ($VERSION) = ($Revision = '5.56 (27-Apr-1999)') =~ /^([\d.]+)/; @@ -577,7 +577,8 @@ MM_VMS_REVISION = $ExtUtils::MM_VMS::Revision } for my $tmp (qw/ XS MAN1PODS MAN3PODS PM /) { - next unless defined $self->{$tmp}; + # Where is the space coming from? --jhi + next unless $self ne " " && defined $self->{$tmp}; my(%tmp,$key); for $key (keys %{$self->{$tmp}}) { $tmp{$self->fixpath($key,0)} = $self->fixpath($self->{$tmp}{$key},0); |