Olav's 2010-09-29 version

qstream

@@ -132,7 +132,7 @@ $SIG{KILL} = sub { $uninterrupted=0; # return if $nkill++ < 1;
 $SIG{ALRM} = sub { 
 #    die "No packets received" if $n_packets < 1;
 #    $uninterrupted=0;
-    &display_stats if ! $endstream;
+    &display_stats if  ! $endstream;
 #	die "End after alarm\n"; 
 #	return(0);
     $endstream=1;
@@ -315,7 +315,7 @@ sub eat_stream {
 		if ($opt_dump){
 		    print DUMP $packet;
 		}
-		$endstream = tv_interval($t0, $tc) >= $opt_last if $opt_last;
+		$endstream = tv_interval($t0, $tc) >= $opt_last if $opt_last && !$endstream;
 	    } else { # assume that we got an interrupt
 #		die "Failed to receive packet: $!"; 
 	    }
@@ -770,7 +770,7 @@ sub pkt_stats {
 	$interval=int($us/10**6 / $opt_period);
 	if ($interval > $pinterval){
 	    &mpeg_debug() if $opt_debug;
-	    &display_stats() ;
+	    &display_stats();
 	    $pinterval=$interval;
 	    $pinterval{$f}=$interval;
 	    $endstream = $opt_nperiod && $interval >= $opt_nperiod;
@@ -1035,6 +1035,7 @@ sub display_stats{
 				  &lesbars(sdv($ngap{$f}, $sumgap{$f},$ssgap{$f})/1000),
 				  &lesbars($mingap{$f}/1000),  &lesbars($maxgap{$f}/1000) );
 		}
+
 		printf "%8s %8d %4d %4d %4s",
 		$time, $npkt{$f}, $dup{$f}+$ntimeerr{$f}, $late{$f}, &lesbar($lost{$f},4);
 
@@ -1044,7 +1045,7 @@ sub display_stats{
 			    &lesbar(compare_cc_dists(\%dist1, \%dist2))) if $opt_mpeg;
 
 		} else {
-		    printf "%4d %4.1f", $sumbyte{$f}/$n, sdv($n, $sumbyte{$f}, $ssbyte{$f});
+		    printf " %4d %4.1f", $sumbyte{$f}/$n, sdv($n, $sumbyte{$f}, $ssbyte{$f});
 		}
 
 		printf   "  %5s %5s %5s %5s",@jitterstat;