blob: 66061df294d3e186920e69ee7029f0cdf3b76f2f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-aa,v 1.1 2008/12/17 01:45:44 he Exp $
--- t/lib/MyDB.pm.orig 2008-12-17 02:30:18.000000000 +0100
+++ t/lib/MyDB.pm
@@ -27,7 +27,7 @@ $db = Path::Class::File->new( $base_pat
# create the db if it does not yet exist
if ( !-s $db ) {
- system("sqlite3 $db < $sql") and die "can't create $db with $sql: $!";
+ system("sqlite3 $db < $sql") or die "can't create $db with $sql: $!";
}
if ( !$db or !-s $db ) {
|
