Changeset 529 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm

Timestamp:

04/18/12 08:52:39 (13 months ago)

Author:

kake

Message:

Fixed deprecated use of foreach ... qw (fixes #53 and #54).

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm (modified) (1 diff)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Feed/Atom.pm

@@ -212 +212 @@
   
     # Escape any &'s in the urls
-    foreach my $key qw(site_url atom_link) {
+    foreach my $key (qw(site_url atom_link)) {
         my @ands = ($self->{$key} =~ /(\&.{1,6})/g);
         foreach my $and (@ands) {