From 9836838062eb5d9687b67b2fc36717bfc2c34c50 Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Sun, 22 May 2011 20:09:31 -0700
Subject: Allow a file to be specified to post_to_hook.pl

---
 scripts/post_to_hook.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts')

diff --git a/scripts/post_to_hook.pl b/scripts/post_to_hook.pl
index 2e2f717..55d3d73 100644
--- a/scripts/post_to_hook.pl
+++ b/scripts/post_to_hook.pl
@@ -13,7 +13,8 @@ use Dancer::Test;
 use Dancer::Config qw/setting/;
 use File::Spec::Functions;
 
-my $content = LoadFile(catfile(qw/t data hook_data.yml/));
+my $content = LoadFile(shift || catfile(qw/t data hook_data.yml/));
+
 my $db_file = catfile( qw/t data jitterbug.db/ );
 my $dsn     = 'dbi:SQLite:dbname=' . $db_file;
 my $schema  = jitterbug::Schema->connect($dsn);
-- 
cgit 1.4.1