# two lines with large gap but same lhs pattern so align equals
local (@pieces) = split( /\./, $filename, 2 );
local ($just_dir_and_base) = $pieces[0];
+
+# two lines with 3 alignment tokens
+$expect = "1$expect" if $expect =~ /^e/i;
+$p = "1$p" if defined $p and $p =~ /^e/i;
+
+# two lines where alignment causes a large gap
+is( eval { sysopen( my $ro, $foo, &O_RDONLY | $TAINT0 ) }, undef );
+is( $@, '' );
----------
'align22' => <<'----------',
'align26' => <<'----------',
# align first of multiple equals
-$SIG{PIPE}=sub{die"writingtoaclosedpipe"};#1=
-$SIG{HUP}=$SIG{BREAK}=$SIG{INT}=$SIG{TERM};#3=
+$SIG{PIPE}=sub{die"writingtoaclosedpipe"};
+$SIG{BREAK}=$SIG{INT}=$SIG{TERM};
+$SIG{HUP}=\&some_handler;
----------
'align27' => <<'----------',
# two lines with large gap but same lhs pattern so align equals
local (@pieces) = split( /\./, $filename, 2 );
local ($just_dir_and_base) = $pieces[0];
+
+# two lines with 3 alignment tokens
+$expect = "1$expect" if $expect =~ /^e/i;
+$p = "1$p" if defined $p and $p =~ /^e/i;
+
+# two lines where alignment causes a large gap
+is( eval { sysopen( my $ro, $foo, &O_RDONLY | $TAINT0 ) }, undef );
+is( $@, '' );
#13...........
},
params => "def",
expect => <<'#18...........',
# align first of multiple equals
-$SIG{PIPE} = sub { die "writingtoaclosedpipe" }; #1=
-$SIG{HUP} = $SIG{BREAK} = $SIG{INT} = $SIG{TERM}; #3=
+$SIG{PIPE} = sub { die "writingtoaclosedpipe" };
+$SIG{BREAK} = $SIG{INT} = $SIG{TERM};
+$SIG{HUP} = \&some_handler;
#18...........
},