Description: Fix syntax errors with newer perl.
 perl -wc /usr/share/perl5/VUser/Google/EmailSettings/V2_0.pm
 syntax error at /usr/share/perl5/VUser/Google/EmailSettings/V2_0.pm line 51, near "$crit qw(from to subject hasTheWord doesNotHaveTheWord hasAttachment)"
 etc.
Origin: vendor
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-08-22
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=169034
Bug: https://rt.cpan.org/Ticket/Display.html?id=169034

--- a/lib/VUser/Google/EmailSettings/V2_0.pm
+++ b/lib/VUser/Google/EmailSettings/V2_0.pm
@@ -48,7 +48,7 @@
 	$options{hasAttachment} = $options{hasAttachment}? 'true':'false';
     }
 
-    foreach my $crit qw(from to subject hasTheWord doesNotHaveTheWord hasAttachment) {
+    foreach my $crit ( qw(from to subject hasTheWord doesNotHaveTheWord hasAttachment) ) {
 	if (defined $options{$crit}) {
 	    $post .= sprintf ("<apps:property name=\"%s\" value=\"%s\" />",
 			      $crit, $options{$crit});
@@ -56,11 +56,11 @@
     }
 
     ## Add actions
-    foreach my $act qw(shouldMarkAsRead shouldArchive) {
+    foreach my $act ( qw(shouldMarkAsRead shouldArchive) ) {
 	$options{$act} = $options{$act}? 'true':'false';
     }
 
-    foreach my $act qw(label shouldMarkAsRead shouldArchive) {
+    foreach my $act ( qw(label shouldMarkAsRead shouldArchive) ) {
 	if (defined $options{$act}) {
 	    $post .= sprintf ("<apps:property name=\"%s\" value=\"%s\" />",
 			      $act, $options{$act});
@@ -322,7 +322,7 @@
     $self->google->Login();
     my $url = $self->base_url().$self->google->domain.'/'.$self->user.'/general';
 
-    foreach my $opt qw(shortcuts arrows snippets unicode) {
+    foreach my $opt ( qw(shortcuts arrows snippets unicode) ) {
 	$options{$opt} = $options{$opt}? 'true':'false';
     }