===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
perlbrew-0.89/t/command-alias.t-40- };
perlbrew-0.89/t/command-alias.t:41: } qr/ERROR: Unrecognized action: `$x`/;
perlbrew-0.89/t/command-alias.t-42-
##############################################
perlbrew-0.89/t/10.resolve.t-43-
perlbrew-0.89/t/10.resolve.t:44: it "returns `perl-\$shortname` if that happens to be a proper installation name.", sub {
perlbrew-0.89/t/10.resolve.t-45- is $app->resolve_installation_name("5.14.0"), "perl-5.14.0";
##############################################
perlbrew-0.89/t/09.exit_status.t-24-my $perl = $^X;
perlbrew-0.89/t/09.exit_status.t:25:system("$perl -Ilib ${bin_perlbrew} unknown-command 2>&1");
perlbrew-0.89/t/09.exit_status.t-26-ok($? != 0);
perlbrew-0.89/t/09.exit_status.t-27-
perlbrew-0.89/t/09.exit_status.t:28:system("$perl -Ilib ${bin_perlbrew} version 2>&1");
perlbrew-0.89/t/09.exit_status.t-29-ok($? == 0);
##############################################
perlbrew-0.89/t/command-help.t-21- it "should print some nice message and instruct user to read help for individual commands" => sub {
perlbrew-0.89/t/command-help.t:22: my $out = `$perl -Ilib $bin_perlbrew help`;
perlbrew-0.89/t/command-help.t-23- like $out, qr/perlbrew help <command>/si;
##############################################
perlbrew-0.89/t/command-help.t-28- it "should instruct user to read help for individual commands." => sub {
perlbrew-0.89/t/command-help.t:29: my $out = `$perl -Ilib $bin_perlbrew help`;
perlbrew-0.89/t/command-help.t-30- like $out, qr/perlbrew help <command>/si;
##############################################
perlbrew-0.89/t/command-help.t-33- it "should be the same as doing `perlbrew -h` or `perlbrew --help`" => sub {
perlbrew-0.89/t/command-help.t:34: my $out1 = `$perl -Ilib $bin_perlbrew help`;
perlbrew-0.89/t/command-help.t:35: my $out2 = `$perl -Ilib $bin_perlbrew -h`;
perlbrew-0.89/t/command-help.t:36: my $out3 = `$perl -Ilib $bin_perlbrew --help`;
perlbrew-0.89/t/command-help.t-37- is $out1, $out2;
##############################################
perlbrew-0.89/t/command-help.t-43- it "should show the options for install command" => sub {
perlbrew-0.89/t/command-help.t:44: my $out = `$perl -Ilib $bin_perlbrew help install`;
perlbrew-0.89/t/command-help.t-45- like $out, qr/^Options for "install" command:/msi;
##############################################
perlbrew-0.89/README.md-2-
perlbrew-0.89/README.md:3:App::perlbrew - Manage perl installations in your `$HOME`
perlbrew-0.89/README.md-4-
##############################################
perlbrew-0.89/script/perlbrew-358-
perlbrew-0.89/script/perlbrew:359:This command works only if you add the statement of `source $PERLBREW_ROOT/etc/bashrc`
perlbrew-0.89/script/perlbrew-360-in your shell initialization (bashrc / zshrc).
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-144- for my $p (sort {$commands{$a}{order}<=>$commands{$b}{order}} keys %commands) {
perlbrew-0.89/lib/App/perlbrew.pm:145: my $code = system("$p $commands{$p}->{test}") >> 8;
perlbrew-0.89/lib/App/perlbrew.pm-146- if ($code != 127) {
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-186-
perlbrew-0.89/lib/App/perlbrew.pm:187: my $status = system($download_command);
perlbrew-0.89/lib/App/perlbrew.pm-188- if ($partial) {
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-588- @commands = map { ' ' . $_ } @commands;
perlbrew-0.89/lib/App/perlbrew.pm:589: die "Unknown command: `$command`. Did you mean one of the following?\n" . join("\n", @commands) . "\n";
perlbrew-0.89/lib/App/perlbrew.pm-590- } elsif (@commands == 1) {
perlbrew-0.89/lib/App/perlbrew.pm:591: die "Unknown command: `$command`. Did you mean `$commands[0]`?\n";
perlbrew-0.89/lib/App/perlbrew.pm-592- } else {
perlbrew-0.89/lib/App/perlbrew.pm:593: die "Unknown command: `$command`. Typo?\n";
perlbrew-0.89/lib/App/perlbrew.pm-594- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-1352- my $extract_command = "cd $workdir; $tarx $dist_tarball";
perlbrew-0.89/lib/App/perlbrew.pm:1353: die "Failed to extract $dist_tarball" if system($extract_command);
perlbrew-0.89/lib/App/perlbrew.pm-1354-
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-1610- local $ENV{PATH} = $self->pristine_path;
perlbrew-0.89/lib/App/perlbrew.pm:1611: `perl -MConfig -e 'print \$Config{perlpath}'`
perlbrew-0.89/lib/App/perlbrew.pm-1612- };
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-1799-
perlbrew-0.89/lib/App/perlbrew.pm:1800: if ($self->do_system($cmd)) {
perlbrew-0.89/lib/App/perlbrew.pm-1801- my $newperl = $self->root->perls ($installation_name)->perl;
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-1936- } else {
perlbrew-0.89/lib/App/perlbrew.pm:1937: $orig_version = `$executable -e 'print \$]'`;
perlbrew-0.89/lib/App/perlbrew.pm-1938- if (defined $orig_version and length $orig_version) {
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2138-a sub-shell. Effectively nullify the changes required by perlbrew sub-shell. You
perlbrew-0.89/lib/App/perlbrew.pm:2139:may `echo \$PATH` to examine it and if you see perlbrew related paths are in the
perlbrew-0.89/lib/App/perlbrew.pm-2140-end, instead of in the beginning, you are unfortunate.
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2171- print "\nA sub-shell is launched with $pretty_name as the activated perl. Run 'exit' to finish it.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm:2172: exec($command);
perlbrew-0.89/lib/App/perlbrew.pm-2173-}
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2219- $pb_home->mkpath;
perlbrew-0.89/lib/App/perlbrew.pm:2220: system("$0 env $dist > " . $pb_home->child ("init"));
perlbrew-0.89/lib/App/perlbrew.pm-2221-
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2238- $pb_home->mkpath;
perlbrew-0.89/lib/App/perlbrew.pm:2239: system("env PERLBREW_PERL= $0 env > " . $pb_home->child ("init"));
perlbrew-0.89/lib/App/perlbrew.pm-2240-
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2512- if ($alias && -e $path_alias && !-l $path_alias) {
perlbrew-0.89/lib/App/perlbrew.pm:2513: die "\nABORT: The installation name `$alias` is not an alias, cannot override.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm-2514- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2519- if ($self->is_installed($alias) && !$self->{force}) {
perlbrew-0.89/lib/App/perlbrew.pm:2520: die "\nABORT: The installation `${alias}` already exists. Cannot override.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm-2521- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2529- unless (-l $path_name) {
perlbrew-0.89/lib/App/perlbrew.pm:2530: die "\nABORT: The installation name `$name` is not an alias, cannot remove.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm-2531- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2538- unless (-l $path_name) {
perlbrew-0.89/lib/App/perlbrew.pm:2539: die "\nABORT: The installation name `$name` is not an alias, cannot rename.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm-2540- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2542- if (-l $path_alias && !$self->{force}) {
perlbrew-0.89/lib/App/perlbrew.pm:2543: die "\nABORT: The alias `$alias` already exists, cannot rename to it.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm-2544- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2551- else {
perlbrew-0.89/lib/App/perlbrew.pm:2552: die "\nERROR: Unrecognized action: `${cmd}`.\n\n";
perlbrew-0.89/lib/App/perlbrew.pm-2553- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-2885- / Compiled at (.+)\n/ ? $1 : ()
perlbrew-0.89/lib/App/perlbrew.pm:2886: } `@{[ $self->installed_perl_executable($self->current_perl) ]} -V`), "\n");
perlbrew-0.89/lib/App/perlbrew.pm-2887- }
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-3255- set perlbrew_line_count=0
perlbrew-0.89/lib/App/perlbrew.pm:3256: foreach perlbrew_line ( "`\perlbrew env $2:q`" )
perlbrew-0.89/lib/App/perlbrew.pm-3257- eval "$perlbrew_line"
##############################################
perlbrew-0.89/lib/App/perlbrew.pm-3321-
perlbrew-0.89/lib/App/perlbrew.pm:3322:setenv PATH_WITHOUT_PERLBREW `perl -e 'print join ":", grep { index($_, $ENV{PERLBREW_ROOT}) } split/:/,$ENV{PATH};'`
perlbrew-0.89/lib/App/perlbrew.pm-3323-setenv PATH "${PERLBREW_PATH}:${PATH_WITHOUT_PERLBREW}"
perlbrew-0.89/lib/App/perlbrew.pm-3324-
perlbrew-0.89/lib/App/perlbrew.pm:3325:setenv MANPATH_WITHOUT_PERLBREW `perl -e 'print join ":", grep { index($_, $ENV{PERLBREW_ROOT}) } split/:/,qx(manpath 2> /dev/null);'`
perlbrew-0.89/lib/App/perlbrew.pm-3326-if ( $?PERLBREW_MANPATH == 1 ) then
##############################################
perlbrew-0.89/.pc/autopkgtest-path.patch/t/09.exit_status.t-24-my $perl = $^X;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/09.exit_status.t:25:system("$perl -Ilib ${bin_perlbrew} unknown-command 2>&1");
perlbrew-0.89/.pc/autopkgtest-path.patch/t/09.exit_status.t-26-ok($? != 0);
perlbrew-0.89/.pc/autopkgtest-path.patch/t/09.exit_status.t-27-
perlbrew-0.89/.pc/autopkgtest-path.patch/t/09.exit_status.t:28:system("$perl -Ilib ${bin_perlbrew} version 2>&1");
perlbrew-0.89/.pc/autopkgtest-path.patch/t/09.exit_status.t-29-ok($? == 0);
##############################################
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-21- it "should print some nice message and instruct user to read help for individual commands" => sub {
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t:22: my $out = `$perl -Ilib $bin_perlbrew help`;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-23- like $out, qr/perlbrew help <command>/si;
##############################################
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-28- it "should instruct user to read help for individual commands." => sub {
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t:29: my $out = `$perl -Ilib $bin_perlbrew help`;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-30- like $out, qr/perlbrew help <command>/si;
##############################################
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-33- it "should be the same as doing `perlbrew -h` or `perlbrew --help`" => sub {
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t:34: my $out1 = `$perl -Ilib $bin_perlbrew help`;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t:35: my $out2 = `$perl -Ilib $bin_perlbrew -h`;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t:36: my $out3 = `$perl -Ilib $bin_perlbrew --help`;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-37- is $out1, $out2;
##############################################
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-43- it "should show the options for install command" => sub {
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t:44: my $out = `$perl -Ilib $bin_perlbrew help install`;
perlbrew-0.89/.pc/autopkgtest-path.patch/t/command-help.t-45- like $out, qr/^Options for "install" command:/msi;