/usr/lib/x86_64-linux-gnu/perl5/5.26/auto/Term/ReadLine/Gnu/XS/shadow_redisplay.al is in libterm-readline-gnu-perl 1.35-3ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | # NOTE: Derived from blib/lib/Term/ReadLine/Gnu/XS.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Term::ReadLine::Gnu::XS;
#line 488 "blib/lib/Term/ReadLine/Gnu/XS.pm (autosplit into blib/lib/auto/Term/ReadLine/Gnu/XS/shadow_redisplay.al)"
# redisplay function for secret input like password
# usage:
# $a->{redisplay_function} = $a->{shadow_redisplay};
# $line = $t->readline("password> ");
sub shadow_redisplay {
@_tstrs = _tgetstrs() unless $_tstrs_init;
# remove prompt start/end mark from prompt string
my $prompt = $Attribs{prompt}; my $s;
$s = Term::ReadLine::Gnu::RL_PROMPT_START_IGNORE; $prompt =~ s/$s//g;
$s = Term::ReadLine::Gnu::RL_PROMPT_END_IGNORE; $prompt =~ s/$s//g;
my $OUT = $Attribs{outstream};
my $oldfh = select($OUT); $| = 1; select($oldfh);
print $OUT ($_tstrs[0], # carriage return
$_tstrs[1], # clear to EOL
$prompt, '*' x length($Attribs{line_buffer}));
print $OUT ($_tstrs[2] # cursor left
x (length($Attribs{line_buffer}) - $Attribs{point}));
$oldfh = select($OUT); $| = 0; select($oldfh);
}
# end of Term::ReadLine::Gnu::XS::shadow_redisplay
1;
|