From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 9 Dec 2000 16:48:07 +0000 (+0000)
Subject: Nits noticed by Peter Prymmer.
X-Git-Tag: accepted/trunk/20130322.191538~33365
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1a535d6f832aa2cf6a84c3d2ed80bba27d8a7dbc;p=platform%2Fupstream%2Fperl.git

Nits noticed by Peter Prymmer.

p4raw-id: //depot/perl@8050
---

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);