[Bast-commits] r4014 - DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2008-02-01 23:01:26 +0000 (Fri, 01 Feb 2008)
New Revision: 4014

Modified:
   DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI/SQLite.pm
Log:
Sanitise filename of sqlite backup file


Modified: DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI/SQLite.pm
===================================================================
--- DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI/SQLite.pm	2008-02-01 22:20:17 UTC (rev 4013)
+++ DBIx-Class/0.08/branches/versioned_enhancements/lib/DBIx/Class/Storage/DBI/SQLite.pm	2008-02-01 23:01:26 UTC (rev 4014)
@@ -33,7 +33,7 @@
 #  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;