diff options
author | Ken Raeburn <raeburn@mit.edu> | 2007-09-24 22:05:56 +0000 |
---|---|---|
committer | Ken Raeburn <raeburn@mit.edu> | 2007-09-24 22:05:56 +0000 |
commit | 5386b775b2fbce68cbc846f7dac3ef495e72457a (patch) | |
tree | 34e1350d51f8265d21fc69f47e293ea1dec1b8c1 /src/windows/build/signFiles.pl | |
parent | ecdd7622b03b8e3ffa1dce68e081fca9e9b0aa70 (diff) | |
download | krb5-5386b775b2fbce68cbc846f7dac3ef495e72457a.tar.gz krb5-5386b775b2fbce68cbc846f7dac3ef495e72457a.tar.xz krb5-5386b775b2fbce68cbc846f7dac3ef495e72457a.zip |
Set svn:eol-style on a bunch of text-looking files that didn't have it
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@19972 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/windows/build/signFiles.pl')
-rw-r--r-- | src/windows/build/signFiles.pl | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/src/windows/build/signFiles.pl b/src/windows/build/signFiles.pl index 65ccb0a11c..ea093b1d7e 100644 --- a/src/windows/build/signFiles.pl +++ b/src/windows/build/signFiles.pl @@ -1,27 +1,27 @@ -#!perl -w
-
-#use strict;
-use Data::Dumper;
-
-sub signFiles {
- local ($signing, $config) = @_;
- local $exprs = $signing->{FilePatterns}->{value};
- local $template = $signing->{CommandTemplate}->{value};
- # Use Unix find instead of Windows find. Save PATH so we can restore it when we're done:
- local $savedPATH= $ENV{PATH};
- $ENV{PATH} = $config->{Config}->{unixfind}->{value}.";".$savedPATH;
- foreach $expr (split(" ", $exprs)) { ## exprs is something like "*.exe *.dll"
- local $cmd = "find . -iname \"$expr\"";
- local $list = `$cmd`; ## $list is files matching *.exe, for example.
- foreach $target (split("\n", $list)) {
- $target =~ s|/|\\|g; ## Flip path separators from unix-style to windows-style.
- local $template2 = $template;
- $template2 =~ s/%filename%/$target/;
- print "Info -- Signing $target\n" if ($verbose);
- !system("$template2") or die "Fatal -- Error signing $target.";
- }
- }
- $ENV{PATH} = $savedPATH;
- }
-
+#!perl -w + +#use strict; +use Data::Dumper; + +sub signFiles { + local ($signing, $config) = @_; + local $exprs = $signing->{FilePatterns}->{value}; + local $template = $signing->{CommandTemplate}->{value}; + # Use Unix find instead of Windows find. Save PATH so we can restore it when we're done: + local $savedPATH= $ENV{PATH}; + $ENV{PATH} = $config->{Config}->{unixfind}->{value}.";".$savedPATH; + foreach $expr (split(" ", $exprs)) { ## exprs is something like "*.exe *.dll" + local $cmd = "find . -iname \"$expr\""; + local $list = `$cmd`; ## $list is files matching *.exe, for example. + foreach $target (split("\n", $list)) { + $target =~ s|/|\\|g; ## Flip path separators from unix-style to windows-style. + local $template2 = $template; + $template2 =~ s/%filename%/$target/; + print "Info -- Signing $target\n" if ($verbose); + !system("$template2") or die "Fatal -- Error signing $target."; + } + } + $ENV{PATH} = $savedPATH; + } + return 1;
\ No newline at end of file |