Show quoted text>>>>> On Wed, 8 Dec 2010 15:32:50 -0500, "Mark Nodine via RT" <bug-Slay-Makefile-Gress@rt.cpan.org> said:
Show quoted text > <URL:
https://rt.cpan.org/Ticket/Display.html?id=61858 >
> On Wed Dec 08 02:57:02 2010, ANDK wrote:
>> The patch doesn't work for the first perl I tried it on. May I suggest
>> you make devel releases to try out different approaches? They are
> tested
>> within a much shorter timeframe on more platforms than I can do it
>> manually.
Show quoted text > I think I see what was wrong with my previous patch. Is there any
> chance you could try out this version, just on one perl that previously
> failed?
Show quoted text > Thanks. (Sorry, I sent this before I got any response about devel
> releases.)
> --- t/30_options.init/Dir.smak 2009-08-31 14:53:55.000000000 -0500
> +++ t/30_options.init/Dir.smak 2010-12-07 16:16:27.745406000 -0600
> @@ -5,11 +5,14 @@
> }
Show quoted text > %.ok: %.out.exp %.out
> - diff -i $DEP0 $DEP1 > $TARGET
> + diff -iu $DEP0 $DEP1 > $TARGET
Show quoted text > %.out:
> { my ($maker, $target, $deps, $matches) = @_;
> my $dbg = $ENV{DEBUG} ? '-d ' : '';
> - system "$^X $dbg-I../../blib/lib $matches->[0].t 2>&1 | grep -v Gress.pm | egrep . > $target";
> + system "$^X $dbg-I../../blib/lib $matches->[0].t 2>&1 |
> + $^X -ne 's/\\\\n/\\n/g;
> + s/\\?\\^:/?-xism:/;
> + print if !/Gress.pm/ && /./' > $target";
> }
Works!
--
andreas