mirror of
https://github.com/samba-team/samba.git
synced 2024-12-25 23:21:54 +03:00
10 lines
171 B
Perl
Executable File
10 lines
171 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
|
|
foreach (@ARGV) {
|
|
my $old = $_;
|
|
my $new = $old; $new =~ s/des/des\/hcrypto/g;
|
|
my $dir = $old;
|
|
print "$new: heimdal/lib/des/hcrypto\n";
|
|
}
|