Silence some regex warnings

hinrik · Apr 2, 2011 · f0a46ca · f0a46ca
1 parent f809dde
commit f0a46ca
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Failo/Identica.pm b/lib/Failo/Identica.pm
@@ -213,6 +213,7 @@ sub _pseudonimize {
 
     while (my ($old, $new) = each %{ $self->{Map_names} }) {
         my $old_up = uc $old;
+	no warnings 'uninitialized';
         $quote =~ s/\b(fail)?\Q$old_up\E(s)?_*\b/uc "$1$new$2"/eg;
         $quote =~ s/\b(fail)?\Q$old\E(s)?_*\b/$1$new$2/gi;
     }