r277@brr: dpavlin | 2007-11-25 22:40:56 +0100

[perl-cwmp.git] / lib / CWMP / Store / HASH.pm

diff --git a/lib/CWMP/Store/HASH.pm b/lib/CWMP/Store/HASH.pm
index fed4495..bcc503d 100644 (file)
--- a/lib/CWMP/Store/HASH.pm
+++ b/lib/CWMP/Store/HASH.pm
@@ -108,7 +108,7 @@ sub all_uids {
        my $self = shift;
 
        my $ext = $self->extension;
-       warn "## extension: $ext";
+       #warn "## extension: $ext";
 
        opendir(my $d, $path) || die "can't opendir $path: $!";
        my @uids = grep { $_ =~ m/\Q$ext\E$/ && -f "$path/$_" } readdir($d);