Control: reopen -1
Control: found -1 20220613-1
It's still reproducible:
$ perltidy --version | head -n1
This is perltidy, v20220613
$ strace -o '| grep -w SCALAR >&2' perl selftidy > /dev/null
statx(AT_FDCWD, "SCALAR(0x59770e08)", AT_STATX_SYNC_AS_STAT|AT_NO_AUTOMOUNT,
STATX_BASIC_S
Package: perltidy
Version: 20180220-1
Control: affects -1 libperl-critic-perl
The attached test program print its own tidied source.
It seems to work correctly:
$ perl selftidy
#!/usr/bin/perl
use Perl::Tidy qw(perltidy);
my $dst;
perltidy( source => $0, destination => \$dst );
print
2 matches
Mail list logo