--- /usr/share/backuppc/lib/BackupPC/Storage/Text.pm.orig 2012-12-20 11:33:39.833760364 -0500
+++ /usr/share/backuppc/lib/BackupPC/Storage/Text.pm  2012-12-20 11:33:54.173756937 -0500
@@ -299,7 +299,7 @@
     #
     # Promote BackupFilesOnly and BackupFilesExclude to hashes
     #
-    foreach my $param qw(BackupFilesOnly BackupFilesExclude) {
+    foreach my $param (qw(BackupFilesOnly BackupFilesExclude)) {
         next if ( !defined($conf->{$param}) || ref($conf->{$param}) eq "HASH" );
         $conf->{$param} = [ $conf->{$param} ]
                                 if ( ref($conf->{$param}) ne "ARRAY" );