Remove some debugging output.
authorAndrew Ruthven <andrew@etc.gen.nz>
Sat, 27 Sep 2008 09:04:28 +0000 (21:04 +1200)
committerAndrew Ruthven <andrew@etc.gen.nz>
Sat, 27 Sep 2008 09:04:28 +0000 (21:04 +1200)
lib/Display/Plugins/Photo/Directory.pm

index 2bdba07..93a5134 100644 (file)
@@ -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";