From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 31 Mar 2003 15:16:57 +0000 (-0800)
Subject: MM hackery and whitespace changes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3a91618cf97865fdc6d1200abc2316c97ddf570e;p=p5sagit%2Fp5-mst-13.2.git

MM hackery and whitespace changes
Message-ID: <20030331231657.GJ17529@windhund.schwern.org>

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

diff --git a/ext/SDBM_File/sdbm/Makefile.PL b/ext/SDBM_File/sdbm/Makefile.PL
index 6de7bd0..2e576da 100644
--- a/ext/SDBM_File/sdbm/Makefile.PL
+++ b/ext/SDBM_File/sdbm/Makefile.PL
@@ -22,34 +22,21 @@ WriteMakefile(
 );
 
 sub MY::constants {
-  package MY;
-  my $r = shift->SUPER::constants();
-  if ($^O eq 'VMS') {
-    $r =~ s/^INST_STATIC =.*$/INST_STATIC = libsdbm\$(LIB_EXT)/m
-  }
-  return $r;
-}
+    package MY;
+    my $self = shift;
+
+    $self->{INST_STATIC} = 'libsdbm$(LIB_EXT)';
 
-sub MY::post_constants {
-  package MY;
-  if ($^O eq 'VMS') {
-    shift->SUPER::post_constants();
-  } else {
-'
-INST_STATIC = libsdbm$(LIB_EXT)
-'
-  }
+    return $self->SUPER::constants();
 }
 
 sub MY::top_targets {
-    my $noecho = shift->{NOECHO};
-    
     my $r = '
 all :: static
-	' . $noecho . '$(NOOP)
+	$(NOECHO) $(NOOP)
 
 config ::
-	' . $noecho . '$(NOOP)
+	$(NOECHO) $(NOOP)
 
 lint:
 	lint -abchx $(LIBSRCS)
@@ -60,7 +47,7 @@ lint:
 # variables into the environment so $(MYEXTLIB) is set in here to this
 # value which can not be built.
 sdbm/libsdbm.a:
-	' . $noecho . '$(NOOP)
+	$(NOECHO) $(NOOP)
 ' unless $^O eq 'VMS';
 
     return $r;