From 9f3eb56b460ad14647b90f9fc841776daf9beb47 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Wed, 4 Mar 2015 16:27:42 +0100 Subject: [PATCH] Reduce verbosity in build-remote.pl --- perl/lib/Nix/Store.pm | 1 + perl/lib/Nix/Store.xs | 5 +++++ scripts/build-remote.pl.in | 2 ++ 3 files changed, 8 insertions(+) diff --git a/perl/lib/Nix/Store.pm b/perl/lib/Nix/Store.pm index 233a432ee..f735a0a20 100644 --- a/perl/lib/Nix/Store.pm +++ b/perl/lib/Nix/Store.pm @@ -13,6 +13,7 @@ our %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( + setVerbosity isValidPath queryReferences queryPathInfo queryDeriver queryPathHash queryPathFromHashPart topoSortPaths computeFSClosure followLinksToStorePath exportPaths importPaths diff --git a/perl/lib/Nix/Store.xs b/perl/lib/Nix/Store.xs index 4c550cdb7..fd2a6e2e8 100644 --- a/perl/lib/Nix/Store.xs +++ b/perl/lib/Nix/Store.xs @@ -48,6 +48,11 @@ void init() doInit(); +void setVerbosity(int level) + CODE: + verbosity = (Verbosity) level; + + int isValidPath(char * path) CODE: try { diff --git a/scripts/build-remote.pl.in b/scripts/build-remote.pl.in index dcf245d7d..447a9fd75 100755 --- a/scripts/build-remote.pl.in +++ b/scripts/build-remote.pl.in @@ -16,6 +16,8 @@ binmode STDERR, ":encoding(utf8)"; my $debug = defined $ENV{NIX_DEBUG_HOOK}; +setVerbosity(0); # make exportPath() less verbose + # General operation: #