]> git.etc.gen.nz Git - picture-display.git/commitdiff
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 2bdba0796f95416da28243a239303ef2656cc8a7..93a5134991f2b4b336e7e6c9ef94ba27b0285e2c 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";