From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Sat, 27 Sep 2008 09:04:28 +0000 (+1200)
Subject: Remove some debugging output.
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ba48228f9df6a34896ae604da56b788b66e61171;p=picture-display.git

Remove some debugging output.
---

diff --git a/lib/Display/Plugins/Photo/Directory.pm b/lib/Display/Plugins/Photo/Directory.pm
index 2bdba07..93a5134 100644
--- a/lib/Display/Plugins/Photo/Directory.pm
+++ b/lib/Display/Plugins/Photo/Directory.pm
@@ -20,13 +20,11 @@ sub new {
 
 sub find_photo {
   my $self = shift;
-  print "Trying to find a photo\n";
 
   if (opendir(DIR, $directory)) {
     my @files = readdir(DIR);
     closedir DIR;
 
-print "Trying a file.\n";
     $self->{'kernel'}->yield('display_photo', join("/", $directory, $files[rand @files]));
   } else {
     warn "Failed to open $directory for reading: $!\n";