Skip Menu |

This queue is for tickets about the Module-Install CPAN distribution.

Report information
The Basics
Id: 62344
Status: new
Priority: 0/
Queue: Module-Install

Owner: Nobody in particular
Requestors: SREZIC [...]

Bug Information
Severity: Unimportant
Broken in: 1.00
Fixed in: (no value)


Subject: t/lib/ run_makefile_pl return value
Download (untitled) / with headers
text/plain 276b
run_makefile_pl in t/lib/ should NOT return true if the chdir fails. See the attached patch. The patch also contains a comment about the relationship between build_dist and run_makefile_pl (maybe this could be refactored into one single function). Regards, Slaven
Subject: 0001-run_makefile_pl-should-not-return-a-true-value-if-ch.patch
From 7a6065aee02461b4b8dc208ce5c38a1f2ba737f6 Mon Sep 17 00:00:00 2001 From: Slaven Rezic <> Date: Thu, 21 Oct 2010 18:11:14 +0200 Subject: [PATCH] run_makefile_pl should not return a true value if chdir fails. Also added a comment about the relationship of build_dist and run_makefile_pl. --- t/lib/ | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/t/lib/ b/t/lib/ index f330fe6..a346a29 100644 --- a/t/lib/ +++ b/t/lib/ @@ -170,12 +170,14 @@ sub build_dist { return $ret ? 0 : 1; } +# Same as build_dist, but also allows shell meta characters in +# run_params sub run_makefile_pl { my %params = @_; my $dist_path = dir(); return 0 unless -d $dist_path; my $home = cwd; - chdir $dist_path or return 1; + chdir $dist_path or return 0; my $X_MYMETA = $params{MYMETA} || ''; local $ENV{X_MYMETA} = $X_MYMETA; --

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to