Change 19116 by [EMAIL PROTECTED] on 2003/04/01 16:06:12

        Subject: [PATCH ext/SDBM_File/sdbm/Makefile.PL] MM hackery and whitespace 
changes
        From: Michael G Schwern <[EMAIL PROTECTED]>
        Date: Mon, 31 Mar 2003 15:16:57 -0800
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/SDBM_File/sdbm/Makefile.PL#14 edit

Differences ...

==== //depot/perl/ext/SDBM_File/sdbm/Makefile.PL#14 (text) ====
Index: perl/ext/SDBM_File/sdbm/Makefile.PL
--- perl/ext/SDBM_File/sdbm/Makefile.PL#13~14301~       Wed Jan 16 05:45:20 2002
+++ perl/ext/SDBM_File/sdbm/Makefile.PL Tue Apr  1 08:06:12 2003
@@ -22,34 +22,21 @@
 );
 
 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 @@
 # 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;
End of Patch.

Reply via email to