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;

Reply via email to