| Subject: | [PATCH] make File::Next location retrieval cross-platform |
| Date: | Fri, 10 Nov 2006 13:40:00 -0800 |
| To: | bug-ack [...] rt.cpan.org |
| From: | "jerry gay" <jerry.gay [...] gmail.com> |
this is a patch against svn r66, in order to get the location of
File::Next in a cross-platform manner. chip++ for the sanity check.
~jerry
Index: Makefile.PL
===================================================================
--- Makefile.PL (revision 66)
+++ Makefile.PL (working copy)
@@ -24,7 +24,7 @@
);
sub MY::postamble {
- return <<'MAKE_FRAG';
+ my $postamble = <<'MAKE_FRAG';
.PHONY: tags critic
tags:
@@ -38,7 +38,7 @@
ACK = ack
APP_ACK_PM = Ack.pm
-FILE_NEXT_PM = $(shell perldoc -l File::Next)
+FILE_NEXT_PM = #MODULE_FILENAME#
CRUSH = crush
crush: $(ACK) $(APP_ACK_PM) $(FILE_NEXT_PM)
@@ -47,5 +47,9 @@
chmod +x $(CRUSH)
MAKE_FRAG
+
+ my $module_filename = qx(perldoc -l File::Next);
+ $postamble =~ s/#MODULE_FILENAME#/$module_filename/;
+ return $postamble;
}
1;