From 9f3eb56b460ad14647b90f9fc841776daf9beb47 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Wed, 4 Mar 2015 16:27:42 +0100
Subject: Reduce verbosity in build-remote.pl

---
 perl/lib/Nix/Store.pm | 1 +
 perl/lib/Nix/Store.xs | 5 +++++
 2 files changed, 6 insertions(+)

(limited to 'perl')

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 {
-- 
cgit v1.2.3