=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm-801- libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm:802: my %where = map { ($_, $row{$_}) } @primary_cols; libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm-803- ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/mysql.pm-80- local $sm->{_modification_target_referenced_re} = libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/mysql.pm:81: qr/ (?<!DELETE) [\s\)] (?: FROM | JOIN ) \s (?: \` \Q$target_name\E \` | \Q$target_name\E ) [\s\(] /xi libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/mysql.pm-82- if $target_name; ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/Cursor.pm-70- libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/Cursor.pm:71: weaken( $cursor_registry{ refaddr($self) } = $self ) libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI/Cursor.pm-72- } ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm-221- weaken ( libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm:222: $seek_and_destroy{ refaddr($_[0]) } = $_[0] libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm-223- ); ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm-2031- my $cur = DBIx::Class::ResultSet->new($source, { libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm:2032: where => { map { $_ => $returned_cols{$_} } (keys %pcols) }, libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm-2033- select => \@left_to_fetch, ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm-2451- from => $ident, libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm:2452: where => $where, libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/DBI.pm-2453- }; ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/TxnScopeGuard.pm-73- or libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/TxnScopeGuard.pm:74: refaddr( ref($@) eq '' ? \$@ : $@ ) != refaddr($self->{existing_exception_ref}) libdbix-class-perl-0.082841/lib/DBIx/Class/Storage/TxnScopeGuard.pm-75- ) ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/CDBICompat/Relationships.pm-192- } libdbix-class-perl-0.082841/lib/DBIx/Class/CDBICompat/Relationships.pm:193: my $where = (@_ ? ((@_ == 1) ? ((ref $_[0] eq "HASH") ? { %{+shift} } : shift) libdbix-class-perl-0.082841/lib/DBIx/Class/CDBICompat/Relationships.pm-194- : {@_}) ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/CDBICompat/AbstractSearch.pm-27- my $class = shift; libdbix-class-perl-0.082841/lib/DBIx/Class/CDBICompat/AbstractSearch.pm:28: my $where = (ref $_[0]) ? $_[0] : { @_ }; libdbix-class-perl-0.082841/lib/DBIx/Class/CDBICompat/AbstractSearch.pm-29- my $attr = (ref $_[0]) ? $_[1] : {}; ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-12- if (ref($table) eq 'ARRAY') { libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm:13: $where = $self->_oracle_joins($where, @{ $table }[ 1 .. $#$table ]); libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-14- } ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-39- my ($self, $where, @join) = @_; libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm:40: my $join_where = $self->_recurse_oracle_joins(@join); libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-41- ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-43- if (!defined($where)) { libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm:44: $where = $join_where; libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-45- } else { libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-46- if (ref($where) eq 'ARRAY') { libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm:47: $where = { -or => $where }; libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-48- } libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm:49: $where = { -and => [ $join_where, $where ] }; libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/OracleJoins.pm-50- } ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm-144- ) $qalias libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm:145:) $qalias WHERE $idx_name >= ? AND $idx_name <= ? libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm-146- ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm-225- SELECT ... libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm:226: ) WHERE ROWNUM <= ($limit+$offset) libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm:227: ) WHERE rownum__index >= ($offset+1) libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm-228- ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm-240- SELECT ... libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm:241: ) WHERE ROWNUM <= ($limit+1) libdbix-class-perl-0.082841/lib/DBIx/Class/SQLMaker/LimitDialects.pm-242- ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm-475- $rs ||= $self->resultset(); libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm:476: $where ||= $self->where(); libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm-477- $set ||= $self->set(); ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm-506- $rs ||= $self->resultset(); libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm:507: $where ||= $self->where(); libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm-508- $attrs ||= $self->attrs(); ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm-537- $rs ||= $self->resultset(); libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm:538: $where ||= $self->where(); libdbix-class-perl-0.082841/lib/DBIx/Class/Admin.pm-539- $attrs ||= $self->attrs(); ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-93- libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm:94:sub hrefaddr ($) { sprintf '0x%x', &refaddr||0 } libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-95- ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-103- reftype $_[0], libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm:104: refaddr($_[0]), libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-105- ; ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-202- $destruction_registry = { map libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm:203: { defined $_ ? ( refaddr($_) => $_ ) : () } libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-204- values %$destruction_registry ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-223- } libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm:224: elsif (! defined $destruction_registry->{ my $addr = refaddr($_[0]) } ) { libdbix-class-perl-0.082841/lib/DBIx/Class/_Util.pm-225- weaken( $destruction_registry->{$addr} = $_[0] ); ############################################## libdbix-class-perl-0.082841/lib/DBIx/Class/ResultSet.pm-3276- %$attrs, libdbix-class-perl-0.082841/lib/DBIx/Class/ResultSet.pm:3277: where => $attrs->{where}, libdbix-class-perl-0.082841/lib/DBIx/Class/ResultSet.pm-3278- }); ############################################## libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-33- libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm:34: weaken( $reg_of_regs{ hrefaddr($weak_registry) } = $weak_registry ) libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm:35: unless( $reg_of_regs{ hrefaddr($weak_registry) } ); libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-36- ############################################## libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-73- $reg = {}; # get a fresh hashref in the new thread ctx libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm:74: weaken( $reg_of_regs{hrefaddr($reg)} = $reg ); libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-75- ############################################## libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-217- libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm:218: for my $addr (keys %$weak_registry) { libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-219- $weak_registry->{$addr}{display_name} = join ' | ', ( ############################################## libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-256- libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm:257: for my $addr (sort { $weak_registry->{$a}{display_name} cmp $weak_registry->{$b}{display_name} } keys %$weak_registry) { libdbix-class-perl-0.082841/t/lib/DBICTest/Util/LeakTracer.pm-258- ############################################## libdbix-class-perl-0.082841/t/lib/DBICTest/Util/OverrideRequire.pm-52- package %s; libdbix-class-perl-0.082841/t/lib/DBICTest/Util/OverrideRequire.pm:53: CORE::require($arg); libdbix-class-perl-0.082841/t/lib/DBICTest/Util/OverrideRequire.pm-54- ', scalar caller(0); # the caller already had its package replaced ############################################## libdbix-class-perl-0.082841/t/lib/DBICTest/Util.pm-174- confess "Current and legacy self_result_object arguments do not match" libdbix-class-perl-0.082841/t/lib/DBICTest/Util.pm:175: if refaddr($args->{self_result_object}) != refaddr($args->{self_rowobj}); libdbix-class-perl-0.082841/t/lib/DBICTest/Util.pm-176- } ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-83- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:84: where => { -and => [ \'foo=bar', [ { artistid => { '=', $num } } ], { name => 'Caterwauler McCrae'} ] }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-85- cc_result => { -and => [ \'foo=bar' ], name => 'Caterwauler McCrae', artistid => $num }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-89- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:90: where => { -and => [ \'foo=bar', [ { artistid => { '=', $num } } ], { name => 'Caterwauler McCrae'}, \'buzz=bozz' ] }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-91- cc_result => { -and => [ \'foo=bar', \'buzz=bozz' ], name => 'Caterwauler McCrae', artistid => $num }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-96- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:97: where => { artistid => [ $num ], rank => [ 13, 2, 3 ], charfield => [ undef ] }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-98- cc_result => { artistid => $num, charfield => undef, rank => [13, 2, 3] }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-110- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:111: where => { artistid => { '=' => [ 1 ], }, charfield => { '=' => [ -AND => \'1', \['?',2] ] }, rank => { '=' => [ -OR => $num, $num ] } }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-112- cc_result => { artistid => 1, charfield => [-and => { '=' => \['?',2] }, { '=' => \'1' } ], rank => { '=' => [$num, $num] } }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-134- (map { { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:135: where => $_, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-136- sql => 'WHERE (rank = 13 OR charfield IS NULL OR artistid = ?) AND (artistid = ? OR charfield IS NULL OR rank != 42)', ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-302- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:303: where => { -and => $_ }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-304- cc_result => undef, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-308- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:309: where => { -or => $_ }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-310- cc_result => undef, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-314- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:315: where => { -or => [ foo => 1, $_ ] }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-316- cc_result => { foo => 1 }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-320- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:321: where => { -or => [ $_, foo => 1 ] }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-322- cc_result => { foo => 1 }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-326- { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:327: where => { -and => [ fuu => 2, $_, foo => 1 ] }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-328- sql => 'WHERE fuu = ? AND foo = ?', ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-476- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:477: where => $w, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-478- throw => qr/ ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-495- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:496: where => { $lhs => $rhs }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-497- cc_result => { -and => [ $rhs ] }, ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-507- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:508: where => $w, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-509- cc_result => { ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-539- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:540: where => $where, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-541- cc_result => { ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-554- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:555: where => { -or => $where }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-556- cc_result => { -or => [ ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-574- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:575: where => { -or => $where }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-576- cc_result => { -or => [ ############################################## libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-591- push @tests, { libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t:592: where => { -or => $where }, libdbix-class-perl-0.082841/t/sqlmaker/dbihacks_internals.t-593- cc_result => { -or => [ ############################################## libdbix-class-perl-0.082841/t/prefetch/correlated.t-194- ON ${ql}${inner_relchain}${qr}.${ql}artist${qr} = ${ql}competition${qr}.${ql}artistid${qr} libdbix-class-perl-0.082841/t/prefetch/correlated.t:195: WHERE ${ql}competition${qr}.${ql}artistid${qr} != ${ql}me${qr}.${ql}artistid${qr} libdbix-class-perl-0.082841/t/prefetch/correlated.t-196- GROUP BY year ############################################## libdbix-class-perl-0.082841/t/73oracle_blob.t-132- { libdbix-class-perl-0.082841/t/73oracle_blob.t:133: from => \ "(SELECT * FROM ${q}bindtype_test${q} WHERE ${q}id${q} != ?) ${q}me${q}", libdbix-class-perl-0.082841/t/73oracle_blob.t-134- bind => [ [ undef => 12345678 ] ], ############################################## libdbix-class-perl-0.082841/t/90join_torture.t-206- libdbix-class-perl-0.082841/t/90join_torture.t:207: # execution libdbix-class-perl-0.082841/t/90join_torture.t-208- $rs->next; ############################################## libdbix-class-perl-0.082841/t/94versioning.t-199- local $ENV{PATH}; libdbix-class-perl-0.082841/t/94versioning.t:200: system( qq($perl -pi.bak -e "s/ALTER/-- this is a comment\nALTER/" $fn->{trans_v23}) ); libdbix-class-perl-0.082841/t/94versioning.t-201-} ############################################## libdbix-class-perl-0.082841/t/52leaks.t-437-my $cleared; libdbix-class-perl-0.082841/t/52leaks.t:438:for my $addr (keys %$weak_registry) { libdbix-class-perl-0.082841/t/52leaks.t-439- my $names = join "\n", keys %{$weak_registry->{$addr}{slot_names}}; ############################################## libdbix-class-perl-0.082841/t/52leaks.t-602- libdbix-class-perl-0.082841/t/52leaks.t:603: ok (! system (@{$persistence_tests->{$type}{termcmd}}), "killed $type server instance") libdbix-class-perl-0.082841/t/52leaks.t-604- if $persistence_tests->{$type}{termcmd}; ############################################## libdbix-class-perl-0.082841/t/00describe_environment.t-183- libdbix-class-perl-0.082841/t/00describe_environment.t:184: # can't just `require $fn`, as we need %INC to be libdbix-class-perl-0.082841/t/00describe_environment.t-185- # populated properly ############################################## libdbix-class-perl-0.082841/t/00describe_environment.t-188- libdbix-class-perl-0.082841/t/00describe_environment.t:189: try_module_require(join ('::', File::Spec->splitdir($mod)) ) libdbix-class-perl-0.082841/t/00describe_environment.t-190- }, ############################################## libdbix-class-perl-0.082841/t/00describe_environment.t-221- libdbix-class-perl-0.082841/t/00describe_environment.t:222:try_module_require($_) for @known_modules; libdbix-class-perl-0.082841/t/00describe_environment.t-223- ############################################## libdbix-class-perl-0.082841/t/00describe_environment.t-303- say_err ( libdbix-class-perl-0.082841/t/00describe_environment.t:304: "Calling `$pkg->VERSION` resulted in an exception, which should never " libdbix-class-perl-0.082841/t/00describe_environment.t-305- . "happen - please file a bug with the distribution containing $pkg. " ############################################## libdbix-class-perl-0.082841/t/00describe_environment.t-315- say_err ( libdbix-class-perl-0.082841/t/00describe_environment.t:316: "Calling `$pkg->VERSION` returned $ret, even though \$${pkg}::VERSION " libdbix-class-perl-0.082841/t/00describe_environment.t-317- . "is defined, which should never happen - please file a bug with the " ############################################## libdbix-class-perl-0.082841/t/00describe_environment.t-345- "Mismatch of versions '$mod_ver' and '$eumm_ver', obtained respectively " libdbix-class-perl-0.082841/t/00describe_environment.t:346: . "via `$pkg->VERSION` and parsing the version out of @{[ shorten_fn( $abs_unix_path ) ]} " libdbix-class-perl-0.082841/t/00describe_environment.t-347- . "with ExtUtils::MakeMaker\@@{[ ExtUtils::MakeMaker->VERSION ]}. " ############################################## libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl-15- print "Regenerating $test_ddl_fn\n"; libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl:16: system( $^X, @test_ddl_cmd, '--ddl-out' => $test_ddl_fn ); libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl-17- libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl-18- print "Regenerating $example_ddl_fn and $example_db_fn\n"; libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl:19: system( $^X, @example_ddl_cmd, '--ddl-out' => $example_ddl_fn, '--deploy-to' => $example_db_fn ); libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl-20- libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl-21- print "Populating $example_db_fn\n"; libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl:22: system( $^X, @example_pop_cmd ); libdbix-class-perl-0.082841/maint/Makefile.PL.inc/56_autogen_schema_files.pl-23- ############################################## libdbix-class-perl-0.082841/maint/Makefile.PL.inc/53_autogen_pod.pl-127- local $ENV{PERLIO} = 'unix'; libdbix-class-perl-0.082841/maint/Makefile.PL.inc/53_autogen_pod.pl:128: system( $^X, qw( -MExtUtils::Command -e dos2unix -- ), $pod_dir ); libdbix-class-perl-0.082841/maint/Makefile.PL.inc/53_autogen_pod.pl-129- } ############################################## libdbix-class-perl-0.082841/maint/Makefile.PL.inc/12_authordeps.pl-102- local $ENV{PERLIO} = 'unix'; libdbix-class-perl-0.082841/maint/Makefile.PL.inc/12_authordeps.pl:103: system( $^X, qw( -MExtUtils::Command -e dos2unix -- META.yml), ); libdbix-class-perl-0.082841/maint/Makefile.PL.inc/12_authordeps.pl-104- } ############################################## libdbix-class-perl-0.082841/inc/Module/Install/Makefile.pm-45-sub makemaker { libdbix-class-perl-0.082841/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libdbix-class-perl-0.082841/inc/Module/Install/Makefile.pm-47-} ############################################## libdbix-class-perl-0.082841/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libdbix-class-perl-0.082841/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libdbix-class-perl-0.082841/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libdbix-class-perl-0.082841/xt/standalone_testschema_resultclasses.t-23- local $SIG{__WARN__} = sigwarn_silencer( qr/\bdeprecated\b/i ); libdbix-class-perl-0.082841/xt/standalone_testschema_resultclasses.t:24: require( ( $fn =~ m| t/lib/ (.+) |x )[0] ); # untaint and strip lib-part (. is unavailable under -T) libdbix-class-perl-0.082841/xt/standalone_testschema_resultclasses.t-25- ############################################## libdbix-class-perl-0.082841/Makefile.PL-259- my $targets = join ', ', map { "q($_)" } @_; libdbix-class-perl-0.082841/Makefile.PL:260: "\t" . $mm_proto->oneliner( qq(\$ENV{PERLIO}='unix' and system( \$^X, qw( -MExtUtils::Command -e dos2unix -- ), $targets ) ) ); libdbix-class-perl-0.082841/Makefile.PL-261- }; ############################################## libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-66-my (@to_bench, $not_latest); libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl:67:for my $commit (`git log --format=%h HEAD ^8330454^ $hri_fn `) { libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-68- chomp $commit; libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-69- next if $skip_commits{$commit}; libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl:70: my $diff = `git show -w -U0 --format=%ar%n%b $commit $hri_fn`; libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-71- if ($diff =~ /^ (?: \@\@ \s .+? | [+-] sub \s) \$? mk_hash /xm ) { ############################################## libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-81- ), libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl:82: code => scalar `git show $commit:lib/DBIx/Class/ResultClass/HashRefInflator.pm`, libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-83- }; ############################################## libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-94- code => do { local (@ARGV, $/) = ($hri_fn); <> }, libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl:95:} if `git status --porcelain $hri_fn`; libdbix-class-perl-0.082841/examples/Benchmarks/benchmark_hashrefinflator.pl-96-