From e59dca706a5ba5455cc6ec7d6e0bbfd198eda7d0 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 12 Dec 2011 21:55:51 +0100
Subject: [PATCH] correct last test and don't output to STDOUT to make prove
 happy

---
 lib/CloudStore/Store.pm | 3 ++-
 t/Store.t               | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/CloudStore/Store.pm b/lib/CloudStore/Store.pm
index 50bbbf0..4b91ee0 100644
--- a/lib/CloudStore/Store.pm
+++ b/lib/CloudStore/Store.pm
@@ -372,6 +372,7 @@ sub dedup {
 				next;
 			}
 			my $new = {
+				login => $data->{login},
 				pid => $data->{pid},
 				file => "$dir$file",
 				md5 => $md5,
@@ -384,7 +385,7 @@ sub dedup {
 				$self->md5pool( $new );
 			}
 		}
-		print "INFO imported $imported files from ",dump($data);
+		warn "INFO imported $imported files from ",dump($data);
 
 		return; # don't put md5sum files into pool
 	}
diff --git a/t/Store.t b/t/Store.t
index b40a6de..32d52a2 100755
--- a/t/Store.t
+++ b/t/Store.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 16;
 use Data::Dump qw(dump);
 
 use lib 'lib';
-- 
2.20.1