/usr/share/perl5/Code/TidyAll/SVN/Util.pm is in libcode-tidyall-perl 0.55~dfsg-2.
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 | package Code::TidyAll::SVN::Util;
use strict;
use warnings;
use Cwd qw(realpath);
use IPC::System::Simple qw(capturex);
use Exporter qw(import);
our $VERSION = '0.55';
our @EXPORT_OK = qw(svn_uncommitted_files);
sub svn_uncommitted_files {
my ($dir) = @_;
$dir = realpath($dir);
my $output = capturex( "svn", "status", $dir );
my @lines = grep {/^[AM]/} split( "\n", $output );
my (@files) = grep {-f} ( $output =~ m{^[AM]\s+(.*)$}gm );
return @files;
}
1;
|