зеркало из https://github.com/mono/mono-tls.git
11 строки
277 B
Perl
Executable File
11 строки
277 B
Perl
Executable File
#!/usr/bin/perl -wT
|
|
use strict;
|
|
|
|
my $prefix = "..\\..\\Mono.Security.NewTls";
|
|
|
|
while (my $line = <>) {
|
|
chop $line;
|
|
next unless $line =~ m,<Compile Include="(.*)"\s*/>,;
|
|
my $file = $1;
|
|
print " <Compile Include=\"$prefix\\$file\">\n <Link>$file</Link>\n </Compile>\n";
|
|
} |