summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2017-12-23 19:51:23 +0000
committerdakkar <dakkar@thenautilus.net>2017-12-23 19:51:23 +0000
commit8d57ef4f3073774b39d7d0dd8e68e461c6a62220 (patch)
tree0162fd141feb79b8c82770d72aa5475ec5a2619e
parentskip useless top-level element in avprobe output (diff)
downloadUltramarine-8d57ef4f3073774b39d7d0dd8e68e461c6a62220.tar.gz
Ultramarine-8d57ef4f3073774b39d7d0dd8e68e461c6a62220.tar.bz2
Ultramarine-8d57ef4f3073774b39d7d0dd8e68e461c6a62220.zip
DBIish wants strings
-rw-r--r--lib/Ultramarine/Model/DB.pm66
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Ultramarine/Model/DB.pm6 b/lib/Ultramarine/Model/DB.pm6
index 0845add..57a5f0b 100644
--- a/lib/Ultramarine/Model/DB.pm6
+++ b/lib/Ultramarine/Model/DB.pm6
@@ -33,7 +33,7 @@ class Ultramarine::Model::DB {
VALUES (?,?,?)
END
LEAVE { .finish with $sth }
- $sth.execute(%song<path mtime metadata>);
+ $sth.execute(%song<path mtime metadata>ยป.Str);
}
sub unpack-row(%song is copy) {
@@ -52,7 +52,7 @@ class Ultramarine::Model::DB {
WHERE path=?
END
LEAVE { .finish with $sth }
- $sth.execute($path);
+ $sth.execute($path.Str);
return unpack-row($sth.row(:hash));
}
@@ -79,7 +79,7 @@ class Ultramarine::Model::DB {
AND mtime >= $mtime
END
LEAVE { .finish with $sth };
- $sth.execute($path,$mtime);
+ $sth.execute($path.Str,$mtime);
return ($sth.row[0]//0).Bool;
}
}