develooper Front page | perl.perl5.porters | Postings from February 2003

[patch] utils/h2xs.PL (get rid of \t and '')

Thread Next
From:
Stas Bekman
Date:
February 13, 2003 17:01
Subject:
[patch] utils/h2xs.PL (get rid of \t and '')
Message ID:
3E4C3F89.6050005@stason.org
This patch doesn't change any functionality, but removes the annoying tabs in 
the autogenerated Makefile.PL. And on the way I've dropped '' in the hash keys 
and fixed a few => alignments.

Please use the attached patch, since the inlined one is most likely messed up 
by mozilla-mail.

--- utils/h2xs.PL.old	2003-02-14 11:02:04.000000000 +1100
+++ utils/h2xs.PL	2003-02-14 11:07:53.000000000 +1100
@@ -1842,12 +1842,12 @@
  # See lib/ExtUtils/MakeMaker.pm for details of how to influence
  # the contents of the Makefile that is written.
  WriteMakefile(
-    'NAME'		=> '$module',
-    'VERSION_FROM'	=> '$modfname.pm', # finds \$VERSION
-    'PREREQ_PM'		=> {$prereq_pm}, # e.g., Module::Name => 1.1
-    (\$] >= 5.005 ?    ## Add these new keywords supported since 5.005
-      (ABSTRACT_FROM => '$modfname.pm', # retrieve abstract from module
-       AUTHOR     => '$author <$email>') : ()),
+    NAME              => '$module',
+    VERSION_FROM      => '$modfname.pm', # finds \$VERSION
+    PREREQ_PM         => {$prereq_pm}, # e.g., Module::Name => 1.1
+    (\$] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (ABSTRACT_FROM  => '$modfname.pm', # retrieve abstract from module
+       AUTHOR         => '$author <$email>') : ()),
  END
  if (!$opt_X) { # print C stuff, unless XS is disabled
    $opt_F = '' unless defined $opt_F;
@@ -1858,9 +1858,9 @@
  EOC

    print PL <<END;
-    'LIBS'		=> ['$extralibs'], # e.g., '-lm'
-    'DEFINE'		=> '$opt_F', # e.g., '-DHAVE_SOMETHING'
-$Icomment    'INC'		=> '$I', # e.g., '${Ihelp}-I/usr/include/other'
+    LIBS              => ['$extralibs'], # e.g., '-lm'
+    DEFINE            => '$opt_F', # e.g., '-DHAVE_SOMETHING'
+$Icomment    INC               => '$I', # e.g., '${Ihelp}-I/usr/include/other'
  END

    my $C = grep {$_ ne "$modfname.c"}
@@ -1871,7 +1871,7 @@
  EOC

    print PL <<END;
-$Ccomment    $Cpre\'OBJECT'		=> '\$(O_FILES)', # link all the C files too
+$Ccomment    ${Cpre}OBJECT            => '\$(O_FILES)', # link all the C 
files too
  END
  } # ' # Grr
  print PL ");\n";

__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About