1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
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';
}
|
