From 4c78debdf8a55af8646be9d95820f97fb0b013fe Mon Sep 17 00:00:00 2001
From: Marc Espie <espie@cvs.openbsd.org>
Date: Fri, 11 Jun 2010 23:44:38 +0000
Subject: don't call working() in -q mode.

---
 usr.sbin/pkg_add/OpenBSD/PkgCreate.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/usr.sbin/pkg_add/OpenBSD/PkgCreate.pm b/usr.sbin/pkg_add/OpenBSD/PkgCreate.pm
index c42bc1e604e..9d55b6e8736 100644
--- a/usr.sbin/pkg_add/OpenBSD/PkgCreate.pm
+++ b/usr.sbin/pkg_add/OpenBSD/PkgCreate.pm
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 # ex:ts=8 sw=4:
-# $OpenBSD: PkgCreate.pm,v 1.12 2010/06/09 10:47:05 espie Exp $
+# $OpenBSD: PkgCreate.pm,v 1.13 2010/06/11 23:44:37 espie Exp $
 #
 # Copyright (c) 2003-2010 Marc Espie <espie@openbsd.org>
 #
@@ -536,7 +536,7 @@ sub read_fragments
 		my ($stack, $cont) = @_;
 		while(my $file = pop @$stack) {
 			while (my $_ = $file->readline) {
-				$state->progress->working(2048);
+				$state->progress->working(2048) unless $state->opt('q');
 				if (m/^(\@comment\s+\$(?:Open)BSD\$)$/o) {
 					$_ = '@comment $'.'OpenBSD: '.basename($file->name).',v$';
 				}
-- 
cgit v1.2.3