Suche einschraenken auf .sql am Ende (\x)
authorUdo Spallek <info@wissensvermittlung.com>
Wed, 31 Jan 2007 16:54:52 +0000 (16:54 +0000)
committerUdo Spallek <info@wissensvermittlung.com>
Wed, 31 Jan 2007 16:54:52 +0000 (16:54 +0000)
bin/mozilla/admin.pl

index 86d6601..5db53d0 100644 (file)
@@ -1467,7 +1467,7 @@ sub create_dataset {
   }
 
   opendir SQLDIR, "sql/." or $form - error($!);
-  foreach $item (sort grep /-chart\.sql/, readdir SQLDIR) {
+  foreach $item (sort grep /-chart\.sql\z/, readdir SQLDIR) {
     next if ($item eq 'Default-chart.sql');
     $item =~ s/-chart\.sql//;
     push @charts,