Fixed direct use of escape sequences in PS1
This commit is contained in:
parent
ce4528b8fe
commit
9246b94acc
1 changed files with 1 additions and 0 deletions
|
@ -302,6 +302,7 @@ sub tput_sequence
|
||||||
open( my $fh , "tput $args|" );
|
open( my $fh , "tput $args|" );
|
||||||
my $value = <$fh>;
|
my $value = <$fh>;
|
||||||
close( $fh );
|
close( $fh );
|
||||||
|
$value =~ s/\033/\\033/g;
|
||||||
return ( $TCCACHE{ $args } = "\\[$value\\]" );
|
return ( $TCCACHE{ $args } = "\\[$value\\]" );
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue