From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 1 Nov 2024 23:48:04 +0000 (-0700)
Subject: add case b1497
X-Git-Tag: 20240903.05~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1383e93cf597c963f22b0fa7b2c181e57070ef08;p=perltidy.git

add case b1497
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index 0cce851d..8503f2b1 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -12441,6 +12441,22 @@ a b c d e );
 --break-at-trailing-comma-types='i'
 --qw-as-function
 
+==> b1497.in <==
+    $c->CanvasBind ( '<2>' => [sub { area_down (@_) }, \%pinfo],
+    );
+    $c->CanvasBind (
+        '<2>' => [sub { area_down (@_) }, \%pinfo], );
+
+==> b1497.par <==
+--maximum-line-length=61
+--line-up-parentheses
+--variable-maximum-line-length
+--paren-vertical-tightness=1
+--space-function-paren
+--square-bracket-tightness=2
+--break-at-trailing-comma-types='h'
+--interbracket-arrow-style='}->['
+
 ==> b1498.in <==
     $c->addtag( 'active', 'withtag',
                 ruler_make_tab( $c, $x, $y, $rinfo ), );
diff --git a/dev-bin/run_convergence_tests.pl.expect b/dev-bin/run_convergence_tests.pl.expect
index c90d98cf..69a73323 100644
--- a/dev-bin/run_convergence_tests.pl.expect
+++ b/dev-bin/run_convergence_tests.pl.expect
@@ -8410,6 +8410,14 @@ my @abc
      = qw( a b c d e
      );
 
+==> b1497 <==
+    $c->CanvasBind (
+        '<2>' => [sub { area_down (@_) }, \%pinfo],
+    );
+    $c->CanvasBind (
+        '<2>' => [sub { area_down (@_) }, \%pinfo],
+    );
+
 ==> b1498 <==
     $c->addtag(
                 'active', 'withtag',