fix Windows missing stty error

librasteve · librasteve · commit 9154cbad50c2 · 2025-11-12T18:54:37.000Z
diff --git a/lib/Data/Dump/Tree.rakumod b/lib/Data/Dump/Tree.rakumod
@@ -249,7 +249,9 @@ unless @.kb_colors.elems
 	}
 @!kb_colors_cycle = |@.kb_colors xx  * ;
 
-my $width= %+((qx[stty size] || '0 80') ~~ /\d+ \s+ (\d+)/)[0] ;
+my $stty-size = '0 80';
+$stty-size = qx[stty size] unless $*DISTRO.name eq 'mswin32';
+my $width = %+(($stty-size) ~~ /\d+ \s+ (\d+)/)[0] ;
 
 $.width //= $width ;
 $.width = $width if @.glyph_filters ; # $.width can be set to Inf, we can't pad that far.

Original file line number	Diff line number	Diff line change
`@@ -249,7 +249,9 @@ unless @.kb_colors.elems`
`249`	`249`	`}`
`250`	`250`	`@!kb_colors_cycle = \|@.kb_colors xx * ;`
`251`	`251`
`252`		`-my $width= %+((qx[stty size] \|\| '0 80') ~~ /\d+ \s+ (\d+)/)[0] ;`
	`252`	`+my $stty-size = '0 80';`
	`253`	`+$stty-size = qx[stty size] unless $*DISTRO.name eq 'mswin32';`
	`254`	`+my $width = %+(($stty-size) ~~ /\d+ \s+ (\d+)/)[0] ;`
`253`	`255`
`254`	`256`	`$.width //= $width ;`
`255`	`257`	`$.width = $width if @.glyph_filters ; # $.width can be set to Inf, we can't pad that far.`