projects
/
picture-display.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
06438db
)
Remove some debugging output.
author
Andrew Ruthven
<andrew@etc.gen.nz>
Sat, 27 Sep 2008 09:04:28 +0000
(21:04 +1200)
committer
Andrew Ruthven
<andrew@etc.gen.nz>
Sat, 27 Sep 2008 09:04:28 +0000
(21:04 +1200)
lib/Display/Plugins/Photo/Directory.pm
patch
|
blob
|
history
diff --git
a/lib/Display/Plugins/Photo/Directory.pm
b/lib/Display/Plugins/Photo/Directory.pm
index
2bdba07
..
93a5134
100644
(file)
--- 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";