# do not recombine if the two lines might align well
# this is a very approximate test for this
- && ( $ibeg_3 >= 0
- && $type_ibeg_2 ne $types_to_go[$ibeg_3] )
+ && (
+
+ # RT#127633 - the leading tokens are not operators
+ ( $type_ibeg_2 ne $tokens_to_go[$ibeg_2] )
+
+ # or they are different
+ || ( $ibeg_3 >= 0
+ && $type_ibeg_2 ne $types_to_go[$ibeg_3] )
+ )
);
if (
my $u = ( $range * $pratio**( 1. / 3. ) ) / $wratio;
my $factor = exp( -( 18 / $u )**4 );
-my $ovp =
- ( 1 - $factor ) * ( 70 - 0.655515 * $u ) +
+my $ovp = ( 1 - $factor ) * ( 70 - 0.655515 * $u ) +
( 1000 / ( $u**1.3 ) + 10000 / ( $u**3.3 ) ) * $factor;
my $impulse =
( 1 - $factor ) * ( 170 - $u ) + ( 350 / $u**0.65 + 500 / $u**5 ) * $factor;
# break after '+' if default, before + if pbp
- my $min_gnu_indentation =
- $standard_increment +
+ my $min_gnu_indentation = $standard_increment +
$gnu_stack[$max_gnu_stack_index]->get_SPACES();
-# do not break after return with -wba=':'
+# keep lines long; do not break after 'return' and '.' with -baoo
return $ref eq 'SCALAR'
? $self->encode_scalar( $object, $name, $type, $attr )
: $ref eq 'ARRAY';
+my $s = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
+ . 'bbbbbbbbbbbbbbbbbbbbbbbbb';
-# do not break after return with -wba=':'
+# keep lines long; do not break after 'return' and '.' with -baoo
return $ref eq 'SCALAR' ? $self->encode_scalar( $object, $name, $type, $attr ) :
$ref eq 'ARRAY';
+my $s = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' .
+ 'bbbbbbbbbbbbbbbbbbbbbbbbb';
../snippets13.t align19.def
../snippets13.t align20.def
../snippets13.t align21.def
+../snippets13.t align22.def
+../snippets13.t align23.def
../snippets2.t angle.def
../snippets2.t arrows1.def
../snippets2.t arrows2.def
../snippets9.t rt98902.def
../snippets9.t rt98902.rt98902
../snippets9.t rt99961.def
-../snippets13.t align22.def
-../snippets13.t align23.def
-# do not break after return with -wba=':'
+# keep lines long; do not break after 'return' and '.' with -baoo
return $ref eq 'SCALAR' ? $self->encode_scalar( $object, $name, $type, $attr ) : $ref eq 'ARRAY';
+my $s = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' . 'bbbbbbbbbbbbbbbbbbbbbbbbb';
###########################################
$rparams = {
'def' => "",
- 'rt127633' => <<'----------',
--wba=':'
-----------
+ 'rt127633' => "-baao",
};
############################
----------
'rt127633' => <<'----------',
-# do not break after return with -wba=':'
+# keep lines long; do not break after 'return' and '.' with -baoo
return $ref eq 'SCALAR' ? $self->encode_scalar( $object, $name, $type, $attr ) : $ref eq 'ARRAY';
+my $s = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' . 'bbbbbbbbbbbbbbbbbbbbbbbbb';
----------
};
source => "rt127633",
params => "def",
expect => <<'#5...........',
-# do not break after return with -wba=':'
+# keep lines long; do not break after 'return' and '.' with -baoo
return $ref eq 'SCALAR'
? $self->encode_scalar( $object, $name, $type, $attr )
: $ref eq 'ARRAY';
+my $s = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'
+ . 'bbbbbbbbbbbbbbbbbbbbbbbbb';
#5...........
},
source => "rt127633",
params => "rt127633",
expect => <<'#6...........',
-# do not break after return with -wba=':'
+# keep lines long; do not break after 'return' and '.' with -baoo
return $ref eq 'SCALAR' ? $self->encode_scalar( $object, $name, $type, $attr ) :
$ref eq 'ARRAY';
+my $s = 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' .
+ 'bbbbbbbbbbbbbbbbbbbbbbbbb';
#6...........
},
expect => <<'#15...........',
my $u = ( $range * $pratio**( 1. / 3. ) ) / $wratio;
my $factor = exp( -( 18 / $u )**4 );
-my $ovp =
- ( 1 - $factor ) * ( 70 - 0.655515 * $u ) +
+my $ovp = ( 1 - $factor ) * ( 70 - 0.655515 * $u ) +
( 1000 / ( $u**1.3 ) + 10000 / ( $u**3.3 ) ) * $factor;
my $impulse =
( 1 - $factor ) * ( 170 - $u ) + ( 350 / $u**0.65 + 500 / $u**5 ) * $factor;
params => "def",
expect => <<'#2...........',
# break after '+' if default, before + if pbp
- my $min_gnu_indentation =
- $standard_increment +
+ my $min_gnu_indentation = $standard_increment +
$gnu_stack[$max_gnu_stack_index]->get_SPACES();
#2...........
},