diff options
Diffstat (limited to '09_qw_parentheses.diff')
| -rw-r--r-- | 09_qw_parentheses.diff | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/09_qw_parentheses.diff b/09_qw_parentheses.diff new file mode 100644 index 000000000000..22509e087491 --- /dev/null +++ b/09_qw_parentheses.diff @@ -0,0 +1,38 @@ +--- mapivi.orig 2009-04-03 17:44:30.000000000 +0200 ++++ mapivi 2013-10-22 18:30:56.925667829 +0200 +@@ -10123,11 +10123,11 @@ + my $pf = $pfa->Frame(-bd => $config{Borderwidth}, -relief => 'groove')->pack(-side => "left"); + my $pfn = $pf->Frame()->pack(); + my $pfs = $pf->Frame()->pack(); +- foreach my $gravity qw(NorthWest North NorthEast) { ++ foreach my $gravity (qw(NorthWest North NorthEast)) { + my $but = $pfn->Radiobutton(-text => "", -variable => \$config{CopyPosition}, -value => $gravity)->pack(-side => 'left'); + $balloon->attach($but, -msg => "Align the copyright text or logo in $gravity position"); + } +- foreach my $gravity qw(SouthWest South SouthEast) { ++ foreach my $gravity (qw(SouthWest South SouthEast)) { + my $but = $pfs->Radiobutton(-text => "", -variable => \$config{CopyPosition}, -value => $gravity)->pack(-side => 'left'); + $balloon->attach($but, -msg => "Align the copyright text or logo in $gravity position"); + } +@@ -19972,7 +19972,7 @@ + ############################################################## + sub normalizeCoords { + my $canvas = shift; +- foreach my $coord qw(m_x1 m_x2 m_y1 m_y2) { ++ foreach my $coord (qw(m_x1 m_x2 m_y1 m_y2)) { + # assign it to the step width + $canvas->{$coord} = sprintf "%.0f", ($canvas->{$coord}/$canvas->{m_step}); + $canvas->{$coord} *= $canvas->{m_step}; +@@ -19981,10 +19981,10 @@ + } + + # check upper bound +- foreach my $coord qw(m_x1 m_x2) { ++ foreach my $coord (qw(m_x1 m_x2)) { + $canvas->{$coord} = $canvas->{m_wo} if ($canvas->{$coord} > $canvas->{m_wo}); + } +- foreach my $coord qw(m_y1 m_y2) { ++ foreach my $coord (qw(m_y1 m_y2)) { + $canvas->{$coord} = $canvas->{m_ho} if ($canvas->{$coord} > $canvas->{m_ho}); + } + } |