From 1a535d6f832aa2cf6a84c3d2ed80bba27d8a7dbc Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 9 Dec 2000 16:48:07 +0000 Subject: [PATCH] Nits noticed by Peter Prymmer. p4raw-id: //depot/perl@8050 --- lib/ExtUtils/MM_VMS.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index cc63d2f..57d61e9 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); -- 2.7.4