[SCM] Debian package checker branch, master, updated. 2.0.0-rc1-14-g2d55c59
The following commit has been merged in the master branch:
commit bf8932fe4771f76d61c60a05ffc6a6037a587b6b
Author: Frank Lichtenheld <djpig@debian.org>
Date: Sun Sep 21 14:15:42 2008 +0200
checks/scripts: Escape some '.' characters in regular expressions
diff --git a/checks/scripts b/checks/scripts
index d0ee095..26b4bb6 100644
--- a/checks/scripts
+++ b/checks/scripts
@@ -245,7 +245,7 @@ for my $filename (sort keys %{$info->scripts}) {
# Skip files that have the #! line, but are not executable and do not have
# an absolute path and are not in a bin/ directory (/usr/bin, /bin etc)
# They are probably not scripts after all.
- next if ($filename !~ m,(bin/|etc/init.d/), and !$executable{$filename}
+ next if ($filename !~ m,(bin/|etc/init\.d/), and !$executable{$filename}
and !$is_absolute);
if ($interpreter eq "") {
@@ -265,13 +265,13 @@ for my $filename (sort keys %{$info->scripts}) {
or $filename =~ m,\.ex$,
or $filename eq './etc/init.d/skeleton'
or $filename =~ m,^\./etc/menu-methods,
- or $filename =~ m,^\./etc/X11/Xsession.d,);
+ or $filename =~ m,^\./etc/X11/Xsession\.d,);
# Warn about csh scripts.
tag("csh-considered-harmful", $filename)
if (($base eq 'csh' or $base eq 'tcsh')
and $executable{$filename}
- and $filename !~ m,^./etc/csh/login.d/,);
+ and $filename !~ m,^\./etc/csh/login\.d/,);
# Syntax-check most shell scripts, but don't syntax-check scripts that end
# in .dpatch. bash -n doesn't stop checking at exit 0 and goes on to blow
@@ -333,9 +333,9 @@ for my $filename (sort keys %{$info->scripts}) {
if ($depends && !Dep::implies($deps{all}, Dep::parse($depends))) {
if ($base =~ /^(python|ruby|(m|g)awk)$/) {
tag("$base-script-but-no-$base-dep", $filename);
- } elsif ($base eq 'csh' && $filename =~ m,^\./etc/csh/login.d/,) {
+ } elsif ($base eq 'csh' && $filename =~ m,^\./etc/csh/login\.d/,) {
# Initialization files for csh.
- } elsif ($base eq 'fish' && $filename =~ m,^./etc/fish.d/,) {
+ } elsif ($base eq 'fish' && $filename =~ m,^\./etc/fish\.d/,) {
# Initialization files for fish.
} else {
tag('missing-dep-for-interpreter', "$base => $depends",
@@ -530,10 +530,10 @@ while (<SCRIPTS>) {
# doesn't exist, only tag direct invocations where invoke-rc.d is
# never used in the same script. Lots of false negatives, but
# hopefully not many false positives.
- if (m%^\s*/etc/init.d/(\S+)\s+[\"\']?(\S+)[\"\']?%) {
+ if (m%^\s*/etc/init\.d/(\S+)\s+[\"\']?(\S+)[\"\']?%) {
$saw_init = $.;
}
- if (m%^\s*invoke-rc.d\s+%) {
+ if (m%^\s*invoke-rc\.d\s+%) {
$saw_invoke = $.;
}
--
Debian package checker
Reply to: