[Rt-commit] r7782 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT

[clkao at bestpractical.com]

Author: clkao
Date: Tue May  8 04:21:21 2007
New Revision: 7782

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm

Log:
db_name can be relative.

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Handle.pm	Tue May  8 04:21:21 2007
@@ -278,7 +278,9 @@
     print "Dropping $db_type database $db_name.\n";
 
     if ( $db_type eq 'SQLite' ) {
-        unlink $db_name or warn $!;
+	my $path = $db_name;
+	$path = "$RT::VarPath/$path" unless substr($path, 0, 1) eq '/';
+        unlink $path or warn $!;
         return;
     }
     $dbh->do("DROP DATABASE ". $db_name) or warn $DBI::errstr;