Sanitise filename of sqlite backup file
Jess Robinson [Fri, 1 Feb 2008 23:01:26 +0000 (23:01 +0000)]
lib/DBIx/Class/Storage/DBI/SQLite.pm

index 87c5289..dbe5ea0 100644 (file)
@@ -33,7 +33,7 @@ sub backup
 #  my $dbfile = file($dbname);
   my ($vol, $dbdir, $file) = File::Spec->splitpath($dbname);
 #  my $file = $dbfile->basename();
-  $file = strftime("%y%m%d%h%M%s", localtime()) . $file; 
+  $file = strftime("%Y-%m-%d-%H_%M_%S", localtime()) . $file; 
   $file = "B$file" while(-f $file);
 
   mkdir($dir) unless -f $dir;