From 3a91618cf97865fdc6d1200abc2316c97ddf570e Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Mon, 31 Mar 2003 07:16:57 -0800
Subject: [PATCH] MM hackery and whitespace changes Message-ID:
 <20030331231657.GJ17529@windhund.schwern.org>

p4raw-id: //depot/perl@19116
---
 ext/SDBM_File/sdbm/Makefile.PL | 29 ++++++++---------------------
 1 file changed, 8 insertions(+), 21 deletions(-)

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