[PATCH] Fix t/30-current_exec.t failing when cwd contains regexp metacharacters

Niko Tyni ntyni at debian.org
Fri Apr 9 19:28:50 UTC 2010


As TEMPDIR contains the build directory name, it may have regexp
metacharacter like '+' in that need escaping.
---
 t/30-current_exec.t |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/t/30-current_exec.t b/t/30-current_exec.t
index 4801543..d5baffe 100644
--- a/t/30-current_exec.t
+++ b/t/30-current_exec.t
@@ -43,7 +43,7 @@ ok( (-f $EXEC), "Created \"$EXEC\"" )
 $ENV{PAR_GLOBAL_TMPDIR} = $TEMP;
 my $out_full = qx($EXEC);
 
-ok( ($out_full =~ /PAR_TEMP = $TEMP/), "Respected PAR_GLOBAL_TMPDIR" );
+ok( ($out_full =~ /PAR_TEMP = \Q$TEMP\E/), "Respected PAR_GLOBAL_TMPDIR" );
 
 my( $file, $path ) = fileparse( $EXEC );
 
-- 
1.7.0.4


--0F1p//8PRICkK4MW--





More information about the pkg-perl-maintainers mailing list