serial commands

[zc] / zc-queue-inspect

diff --git a/zc-queue-inspect b/zc-queue-inspect
index 63fcd53..0ab2bd5 100755 (executable)
--- a/zc-queue-inspect
+++ b/zc-queue-inspect
@@ -6,7 +6,8 @@ use Data::Dump qw(dump);
 use File::Slurp;
 use POSIX qw(strftime);
 
-use lib '.';
+use FindBin;
+use lib "$FindBin::Bin/.";
 use Protocol;
 
 my $debug = $ENV{DEBUG} // 0;