From 11d08c95c0b38b80f9595b56121a95744d63b03b Mon Sep 17 00:00:00 2001 From: Frank Lichtenheld Date: Mon, 8 Oct 2007 04:23:45 +0200 Subject: [PATCH] parse-contents: Update progress approximation Make them at least partly match reality... --- bin/parse-contents | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/parse-contents b/bin/parse-contents index b8cc8e4..ef5c09c 100755 --- a/bin/parse-contents +++ b/bin/parse-contents @@ -91,7 +91,7 @@ for my $suite (@suites) { my $data = ""; my %data = (); chomp; - print "Doing line ".($./1000)."k (out of approx 1.5M)\n" if $. % 250000 == 0; + print "Doing line ".($./1000)."k (out of approx 2.0M)\n" if $. % 250000 == 0; /^(.+?)\s+(\S+)$/o; my ($file, $value) = ($1, $2); $value =~ s#[^,/]+/##og; @@ -162,7 +162,7 @@ for my $suite (@suites) { my $lastpath = my $lastcasepath = my $lastfile = ""; my %matches = (); while () { - print "Doing line ".($./1000000)."M (out of approx. 16M)\n" + print "Doing line ".($./1000000)."M (out of approx. 20M)\n" if $. % 1000000 == 0; chomp; my @line = split /\0/o, $_; -- 2.39.2