nicer default behaviour

diff --git a/detpic/display-nmra-decoded b/detpic/display-nmra-decoded
index cf713140426fc09be709cd754d2bb6ce1c3d1196..59c67b94ec322f4d1e4ab6ac1d25ba5082067548 100755 (executable)
--- a/detpic/display-nmra-decoded
+++ b/detpic/display-nmra-decoded
@@ -240,7 +240,7 @@ sub found_datapoint ($$) {
 
 #---------- datapoint reader ----------
 
-sub read_input_file() {
+sub read_stdin() {
     reset_bit_decoder();
 
     while (<STDIN>) {
@@ -252,5 +252,13 @@ sub read_input_file() {
     die $! if STDIN->error;
 }
 
-read_input_file();
+if (!@ARGV) {
+    exec './display-nmra-decoded <t.nmra.dat - 2>&1 |less';
+    die "$? $!";
+} elsif (@ARGV==1 and $ARGV[0] eq '-') {
+    read_stdin();
+} else {
+    die;
+}
+
 die $! if STDOUT->error;