Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Jens Gustedt
P99 - macros and functions for C99
Commits
eaaccbdb
Commit
eaaccbdb
authored
Dec 10, 2017
by
Jens Gustedt
Browse files
correct an embarassing typo
parent
132b2031
Changes
1
Hide whitespace changes
Inline
Side-by-side
scripts/findSvnAuthors
View file @
eaaccbdb
...
...
@@ -39,15 +39,15 @@ my $metoo = 0;
my
$beauty
=
"
astyle
";
my
$copyright
=
"
Copyright (c)
";
my
$authorsFile
;
my
$licen
c
eFile
;
my
$licen
s
eFile
;
my
@beautyArgs
=
("
--style=attach
",
"
-NoO
",
"
-s2
",
"
--convert-tabs
");
my
$result
=
GetOptions
("
ifile=s
"
=>
\
$
{
ifile
},
# string
"
ofile=s
"
=>
\
$
{
ofile
},
# string
"
copyright=s
"
=>
\
$
{
copyright
},
# string
"
licen
c
eFile=s
"
=>
\
$
{
licen
c
eFile
},
# string
"
licen
s
eFile=s
"
=>
\
$
{
licen
s
eFile
},
# string
"
authorsFile=s
"
=>
\
$
{
authorsFile
},
# string
"
spaces=i
"
=>
\
$
{
spaces
},
# integer
"
scm=s
"
=>
\
$
{
scm
}
,
# string
"
scm=s
"
=>
\
$scm
,
# string
"
type=s
"
=>
\
$
{
type
},
# string
"
metoo!
"
=>
\
$
{
metoo
},
# flag
"
diff!
"
=>
\
$
{
diff
},
# flag
...
...
@@ -93,10 +93,10 @@ foreach my $name (keys(%fnames)) {
my
$historyFile
=
"
${scriptdir}
/HISTORY.txt
";
my
%history
=
slurp
{
m{^(\S+)\s+(.*?)\s*$}o
}
$
{
historyFile
};
$licen
c
eFile
=
"
${scriptdir}
/SHORTLICENCE.txt
"
if
(
!
defined
(
$licen
c
eFile
));
my
$licen
c
e
=
slurp
{
$_
}
$
{
licen
c
eFile
};
$licen
c
e
=
<<
'
LICEN
C
E
'
if
(
!
defined
(
$licen
c
e
));
$licen
s
eFile
=
"
${scriptdir}
/SHORTLICENCE.txt
"
if
(
!
defined
(
$licen
s
eFile
));
my
$licen
s
e
=
slurp
{
$_
}
$
{
licen
s
eFile
};
$licen
s
e
=
<<
'
LICEN
S
E
'
if
(
!
defined
(
$licen
s
e
));
This
file
is
free
software
;
you
can
redistribute
it
and
/
or
modify
it
...
...
@@ -104,7 +104,7 @@ under the terms as given in the file LICENSE. It is distributed
without
any
warranty
;
without
even
the
implied
warranty
of
merchantability
or
fitness
for
a
particular
purpose
.
LICEN
C
E
LICEN
S
E
my
%combeg
=
(
...
...
@@ -598,7 +598,7 @@ ${copyright} ${all} ${name}
copyright
}
$header .= ${licen
c
e};
$header .= ${licen
s
e};
my @header = map {
chomp;
$_ = "${combeg}${spaces}$_";
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment