Author: REHSACK
Date: Wed Sep 8 12:55:55 2010
New Revision: 14384
Modified:
dbi/trunk/t/lib.pl
Log:
kick out pointless basename in testdir
Modified: dbi/trunk/t/lib.pl
==============================================================================
--- dbi/trunk/t/lib.pl (original)
+++ dbi/trunk/t/lib.pl Wed Sep 8 12:55:55 2010
@@ -19,7 +19,6 @@
{
$test_dir = File::Spec->rel2abs( File::Spec->curdir () );
$test_dir = File::Spec->catdir ( $test_dir, "test_output_" . $$ );
- $test_dir .= "_" . basename($0, qr/\.[^.]*/);
$test_dir = VMS::Filespec::unixify($test_dir) if $^O eq 'VMS';
rmtree $test_dir;
mkpath $test_dir;