projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use lib '../lib';
[irspy-moved-to-github.git]
/
bin
/
irspy-rewrite-records.pl
diff --git
a/bin/irspy-rewrite-records.pl
b/bin/irspy-rewrite-records.pl
index
c80b05d
..
a560db9
100755
(executable)
--- a/
bin/irspy-rewrite-records.pl
+++ b/
bin/irspy-rewrite-records.pl
@@
-1,12
+1,14
@@
#!/usr/bin/perl
#!/usr/bin/perl
-
+#
# perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
# perl -I ../lib irspy-rewrite-records.pl localhost:8018/IR-Explain---1
-use strict;
-use warnings;
+use lib '../lib';
use ZOOM::IRSpy;
use ZOOM::IRSpy::Utils qw(render_record);
use ZOOM::IRSpy;
use ZOOM::IRSpy::Utils qw(render_record);
+use strict;
+use warnings;
+
my($dbname) = @ARGV;
die "$0 no database name specified" if !defined $dbname;
my($dbname) = @ARGV;
die "$0 no database name specified" if !defined $dbname;