===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
pkg-perl-tools-0.62/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t-75- SKIP: {
pkg-perl-tools-0.62/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t:76: ok(!system(qq(dpkg-query --list "$package" >/dev/null 2>&1)),
pkg-perl-tools-0.62/autopkgtest/scripts/runtime-deps-and-recommends.d/syntax.t-77- "Package $package is known to dpkg");
##############################################
pkg-perl-tools-0.62/bin/patchedit-312- my $editor = $ENV{'EDITOR'} || $ENV{'VISUAL'} || '/usr/bin/editor';
pkg-perl-tools-0.62/bin/patchedit:313: system( "$editor $patch" );
pkg-perl-tools-0.62/bin/patchedit-314-}
##############################################
pkg-perl-tools-0.62/bin/pristine-orig-6-PKG=`dpkg-parsechangelog --show-field Source`
pkg-perl-tools-0.62/bin/pristine-orig:7:VER=`dpkg-parsechangelog --show-field Version | sed 's,^[0-9]\+:,,; s,-[^-]\+$,,'`
pkg-perl-tools-0.62/bin/pristine-orig-8-
##############################################
pkg-perl-tools-0.62/lib/Debian/PkgPerl/Message.pm-245- . "Trying to open the URL with sensible-browser now.\n";
pkg-perl-tools-0.62/lib/Debian/PkgPerl/Message.pm:246: system( 'sensible-browser', $opt_tracker_url );
pkg-perl-tools-0.62/lib/Debian/PkgPerl/Message.pm-247- }
##############################################
pkg-perl-tools-0.62/scripts/ci-failures-46-unlink $packagesfile unless $keepcache;
pkg-perl-tools-0.62/scripts/ci-failures:47:system("wget -q https://ci.debian.net/data/status/$dist/${arch}/packages.json -O $packagesfile")
pkg-perl-tools-0.62/scripts/ci-failures-48- if ! -f $packagesfile;
##############################################
pkg-perl-tools-0.62/scripts/forward-481- # TODO
pkg-perl-tools-0.62/scripts/forward:482: # `bts forwarded $bug $url` ? if the patch has ^Bug-Debian:
pkg-perl-tools-0.62/scripts/forward-483- }
##############################################
pkg-perl-tools-0.62/scripts/gc-33-
pkg-perl-tools-0.62/scripts/gc:34:shift `expr $OPTIND - 1`
pkg-perl-tools-0.62/scripts/gc-35-
##############################################
pkg-perl-tools-0.62/scripts/gc-55- if [ -n "$HAVE_BC" ]; then
pkg-perl-tools-0.62/scripts/gc:56: if [ `calc "$1 / $G_DIV >= 1.1"` = "1" ]; then
pkg-perl-tools-0.62/scripts/gc:57: echo `calc "$1 / $G_DIV"`G
pkg-perl-tools-0.62/scripts/gc:58: elif [ `calc "$1 / $M_DIV > 1.1"` = "1" ]; then
pkg-perl-tools-0.62/scripts/gc:59: echo `calc "$1 / $M_DIV"`M
pkg-perl-tools-0.62/scripts/gc:60: elif [ `calc "$1 / $K_DIV > 1.1"` = "1" ]; then
pkg-perl-tools-0.62/scripts/gc:61: echo `calc "$1 / $K_DIV"`K
pkg-perl-tools-0.62/scripts/gc-62- else
##############################################
pkg-perl-tools-0.62/scripts/gc-81- if [ -n "$VERBOSE" ]; then
pkg-perl-tools-0.62/scripts/gc:82: echo -n "`basename $d`"
pkg-perl-tools-0.62/scripts/gc-83- fi
pkg-perl-tools-0.62/scripts/gc-84- if [ -n "$STATS" ]; then
pkg-perl-tools-0.62/scripts/gc:85: BEFORE=`du -sbP $d/.git | cut -f1`
pkg-perl-tools-0.62/scripts/gc-86- fi
##############################################
pkg-perl-tools-0.62/scripts/gc-88- if [ -n "$STATS" ]; then
pkg-perl-tools-0.62/scripts/gc:89: AFTER=`du -sbP $d/.git | cut -f1`
pkg-perl-tools-0.62/scripts/gc-90- fi
##############################################
pkg-perl-tools-0.62/scripts/gc-94- printf " %s -> %s (-%s, %0.1f%%)" \
pkg-perl-tools-0.62/scripts/gc:95: `human $BEFORE` `human $AFTER` \
pkg-perl-tools-0.62/scripts/gc:96: `human $(( $BEFORE - $AFTER ))` \
pkg-perl-tools-0.62/scripts/gc:97: `calc "100*($BEFORE-$AFTER)/$BEFORE"`
pkg-perl-tools-0.62/scripts/gc-98- fi
##############################################
pkg-perl-tools-0.62/scripts/gc-107- printf "Total disk usage: %s -> %s (-%s, %0.1f%%)\n" \
pkg-perl-tools-0.62/scripts/gc:108: `human $TOTAL_BEFORE` `human $TOTAL_AFTER` \
pkg-perl-tools-0.62/scripts/gc:109: `human $GAIN` \
pkg-perl-tools-0.62/scripts/gc:110: `calc "100*($GAIN)/$TOTAL_BEFORE"`
pkg-perl-tools-0.62/scripts/gc-111-fi
##############################################
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh-45-
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh:46: if [ `egrep -c "^Updating existing checkout in .+" "$TMP/out"` = 1 ]; then
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh:47: DIR=`egrep '^Updating existing' "$TMP/out" | sed -e 's/Updating existing checkout in //'`
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh-48- cd "$DIR"
##############################################
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh-51-
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh:52: if [ `egrep -c "^.+ ready in .+" "$TMP/out"` = 1 ]; then
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh:53: DIR=`egrep ' ready in ' "$TMP/out" | sed -e 's/.\+ ready in //'`
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh-54- cd "$DIR"
##############################################
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh-57-
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh:58: if [ `egrep -c "^Package .+ is in .+" "$TMP/out"` = 1 ]; then
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh:59: DIR=`egrep '^Package .+ is in ' "$TMP/out" | sed -e 's/^Package .\+ is in //'`
pkg-perl-tools-0.62/scripts/lib/posix-lib.sh-60- cd "$DIR"
##############################################
pkg-perl-tools-0.62/scripts/packagecheck-67-
pkg-perl-tools-0.62/scripts/packagecheck:68: elif [ ! -x "`which $CMD_REALPATH 2>/dev/null`" ]; then
pkg-perl-tools-0.62/scripts/packagecheck-69- echo "[*] Error: Command $CMD_REALPATH not found!";
##############################################
pkg-perl-tools-0.62/scripts/packagecheck-171- if [ -z "$NEWHP" ] || echo "$NEWHP" | grep -q cpan\.org; then
pkg-perl-tools-0.62/scripts/packagecheck:172: PERLNAME=`detect_dist $DIR`
pkg-perl-tools-0.62/scripts/packagecheck-173- if [ -n "$PERLNAME" ]; then
##############################################
pkg-perl-tools-0.62/scripts/packagecheck-190- echo "$PKG: trying to change search.cpan.org URL to metacpan.org URL"
pkg-perl-tools-0.62/scripts/packagecheck:191: PERLNAME=`detect_dist $DIR`
pkg-perl-tools-0.62/scripts/packagecheck-192- if [ -n "$PERLNAME" ]; then
##############################################
pkg-perl-tools-0.62/scripts/packagecheck-205- if egrep -q "^Source: http://search\.cpan\.org/dist/" $DIR/debian/copyright; then
pkg-perl-tools-0.62/scripts/packagecheck:206: PERLNAME=`detect_dist $DIR`
pkg-perl-tools-0.62/scripts/packagecheck-207- if [ -n "$PERLNAME" ]; then
##############################################
pkg-perl-tools-0.62/scripts/packagecheck-298- echo "$PKG: creating debian/watch"
pkg-perl-tools-0.62/scripts/packagecheck:299: if dist_name=`detect_dist $DIR`; then
pkg-perl-tools-0.62/scripts/packagecheck-300- version_re='v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)'
##############################################
pkg-perl-tools-0.62/scripts/repack.sh-58-
pkg-perl-tools-0.62/scripts/repack.sh:59:if [ `ls -1 "$UP_BASE" | wc -l` -eq 1 ]; then
pkg-perl-tools-0.62/scripts/repack.sh-60- # Tarball does contain a root directory
pkg-perl-tools-0.62/scripts/repack.sh:61: UP_BASE="$UP_BASE/`ls -1 "$UP_BASE"`"
pkg-perl-tools-0.62/scripts/repack.sh-62-fi
##############################################
pkg-perl-tools-0.62/scripts/shell-lib-8-
pkg-perl-tools-0.62/scripts/shell-lib:9:MYDIR="$(readlink -f `dirname $0`)"
pkg-perl-tools-0.62/scripts/shell-lib-10-
pkg-perl-tools-0.62/scripts/shell-lib-11-usage() {
pkg-perl-tools-0.62/scripts/shell-lib:12: BN=`basename $0`
pkg-perl-tools-0.62/scripts/shell-lib-13- cat <<EOF
##############################################
pkg-perl-tools-0.62/scripts/takeover-13-
pkg-perl-tools-0.62/scripts/takeover:14:MYDIR="$(readlink -f `dirname $0`)"
pkg-perl-tools-0.62/scripts/takeover-15-
pkg-perl-tools-0.62/scripts/takeover-16-usage() {
pkg-perl-tools-0.62/scripts/takeover:17: BN=`basename $0`
pkg-perl-tools-0.62/scripts/takeover-18- cat <<EOF
##############################################
pkg-perl-tools-0.62/scripts/takeover-59-done
pkg-perl-tools-0.62/scripts/takeover:60:shift `expr $OPTIND - 1`
pkg-perl-tools-0.62/scripts/takeover-61-
##############################################
pkg-perl-tools-0.62/scripts/takeover-90- cd $PACKAGE
pkg-perl-tools-0.62/scripts/takeover:91: for b in `git branch -r|grep -E -v '/HEAD |/master$'|sed -e 's,^ origin/,,'`; do
pkg-perl-tools-0.62/scripts/takeover-92- git checkout -b $b origin/$b