===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libur-perl-0.470+ds/dist-maint/findreplace-19- my $bak = $file . ".bak$$";
libur-perl-0.470+ds/dist-maint/findreplace:20: print `mv '$file' '$bak'`;
libur-perl-0.470+ds/dist-maint/findreplace:21: print `grep -- '$find' '$bak'`;
libur-perl-0.470+ds/dist-maint/findreplace-22-
libur-perl-0.470+ds/dist-maint/findreplace:23: #print `cat $bak | sed 's/$find/$replace/g' > $file`;
libur-perl-0.470+ds/dist-maint/findreplace-24- my $IN;
##############################################
libur-perl-0.470+ds/dist-maint/findreplace-36-
libur-perl-0.470+ds/dist-maint/findreplace:37: print `diff $bak $file`;
libur-perl-0.470+ds/dist-maint/findreplace:38: print `rm $bak`;
libur-perl-0.470+ds/dist-maint/findreplace-39- print "\n";
##############################################
libur-perl-0.470+ds/dist-maint/update-version.pl-9-
libur-perl-0.470+ds/dist-maint/update-version.pl:10:my $cmd = qq{cd ..; dist-maint/findreplace '$old"; # UR \\\$VERSION' '$new"; # UR \$VERSION' `grep -rn '# UR \\\$VERSION' lib/ | sed s/:.*//`};
libur-perl-0.470+ds/dist-maint/update-version.pl-11-print $cmd,"\n";
##############################################
libur-perl-0.470+ds/lib/Command/V1.pm-1355-
libur-perl-0.470+ds/lib/Command/V1.pm:1356: my $ec = system ( $cmdline );
libur-perl-0.470+ds/lib/Command/V1.pm-1357-
##############################################
libur-perl-0.470+ds/lib/UR/BoolExpr/Util.pm-50-
libur-perl-0.470+ds/lib/UR/BoolExpr/Util.pm:51: if (refaddr($first) != refaddr($second)) {
libur-perl-0.470+ds/lib/UR/BoolExpr/Util.pm-52- my $ref = reftype($second);
##############################################
libur-perl-0.470+ds/lib/UR/BoolExpr/Util.pm-84- my($class, $id) = ($_->class, $_->id);
libur-perl-0.470+ds/lib/UR/BoolExpr/Util.pm:85: if (refaddr($_) != refaddr($UR::Context::all_objects_loaded->{$class}->{$id})) {
libur-perl-0.470+ds/lib/UR/BoolExpr/Util.pm-86- # bless the original thing to a non-UR::Object class so UR::Object::DESTROY
##############################################
libur-perl-0.470+ds/lib/UR/Context/ImportIterator.pm-789- if (! defined($next_object_to_return)
libur-perl-0.470+ds/lib/UR/Context/ImportIterator.pm:790: or (Scalar::Util::refaddr($next_object_to_return) == Scalar::Util::refaddr($primary_object_for_next_db_row))
libur-perl-0.470+ds/lib/UR/Context/ImportIterator.pm-791- ) {
##############################################
libur-perl-0.470+ds/lib/UR/DBI.pm-1062-
libur-perl-0.470+ds/lib/UR/DBI.pm:1063:$UR::DBI::EXPLAIN_PLAN_CLEANUP_DML = "delete from plan_table where statement_id = '$UR::DBI::STATEMENT_ID'";
libur-perl-0.470+ds/lib/UR/DBI.pm-1064-
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/CSV.pm-118-
libur-perl-0.470+ds/lib/UR/DataSource/CSV.pm:119: unless($dbh->do("DELETE from $sequence_name where next_value = $new_id")) {
libur-perl-0.470+ds/lib/UR/DataSource/CSV.pm-120- die "DELETE from $sequence_name for next_value $new_id failed during id autogeneration";
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/MySQL.pm-122-
libur-perl-0.470+ds/lib/UR/DataSource/MySQL.pm:123: unless($dbh->do("DELETE from $sequence_name where next_value = $new_id")) {
libur-perl-0.470+ds/lib/UR/DataSource/MySQL.pm-124- die "DELETE from $sequence_name for next_value $new_id failed during id autogeneration";
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/QueryPlan.pm-560-
libur-perl-0.470+ds/lib/UR/DataSource/QueryPlan.pm:561: my $where = $join->{where};
libur-perl-0.470+ds/lib/UR/DataSource/QueryPlan.pm-562-
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/QueryPlan.pm-1090- # This will crash if the "where" happens to use indirect things
libur-perl-0.470+ds/lib/UR/DataSource/QueryPlan.pm:1091: my $where = $join->{where};
libur-perl-0.470+ds/lib/UR/DataSource/QueryPlan.pm-1092- if ($where) {
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm-3126- my @values = $self->_id_values_for_primary_key($table,$object_to_save);
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm:3127: my $where = $self->_matching_where_clause($table, \@values);
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm-3128-
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm-3218- my @all_values = ( @changed_values, @id_values );
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm:3219: my $where = $self->_matching_where_clause($table, \@all_values);
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm-3220-
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm-3304- my @pk_values = $self->_id_values_for_primary_key($table, $object_to_save);
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm:3305: my $where = $self->_matching_where_clause($table, \@pk_values);
libur-perl-0.470+ds/lib/UR/DataSource/RDBMS.pm-3306-
##############################################
libur-perl-0.470+ds/lib/UR/DataSource/SQLite.pm-326-
libur-perl-0.470+ds/lib/UR/DataSource/SQLite.pm:327: unless($dbh->do("DELETE from $sequence_name where next_value = $new_id")) {
libur-perl-0.470+ds/lib/UR/DataSource/SQLite.pm-328- die "DELETE from $sequence_name for next_value $new_id failed during id autogeneration";
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Sys/ClassBrowser.pm-82- $self->status_message("Preloading class information for namespace $namespace...");
libur-perl-0.470+ds/lib/UR/Namespace/Command/Sys/ClassBrowser.pm:83: $self->_load_class_info_from_modules_on_filesystem($namespace);
libur-perl-0.470+ds/lib/UR/Namespace/Command/Sys/ClassBrowser.pm-84- }
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Sys/ClassBrowser.pm-327- if ($self->generate_cache) {
libur-perl-0.470+ds/lib/UR/Namespace/Command/Sys/ClassBrowser.pm:328: $self->_load_class_info_from_modules_on_filesystem($self->namespace_name);
libur-perl-0.470+ds/lib/UR/Namespace/Command/Sys/ClassBrowser.pm-329- $self->_write_class_info_to_cache_file();
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Compile.pm-40- my $lib_path = $self->lib_path;
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Compile.pm:41: my @response = `cd $lib_path; perl -I $lib_path -c $module_file 2>&1`;
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Compile.pm-42- if (grep { $_ eq "$module_file syntax OK\n" } @response) {
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-267-
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm:268: system($line);
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-269-
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-320- my $module_test_names = $dbh->selectcol_arrayref(
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm:321: "select test_name from test_module_use where module_name = ?",undef,$module_name
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-322- );
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-622- print "bkilling LSF jobid $jobid\n";
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm:623: `bkill $jobid`;
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-624- }
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-691- foreach my $jobid ( @{$state->{'lsf_jobids'}} ) {
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm:692: my @output = `bjobs $jobid`;
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-693- next unless $output[1]; # expired jobs only have 1 line of output: Job <xxxx> is not found
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-725- my $lsf_params = $state->{'lsf_params'} || '';
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm:726: my $line = `bsub $lsf_params ur test run --run-as-lsf-helper $host`;
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Run.pm-727- my ($jobid) = $line =~ m/Job \<(\d+)\>/;
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Window.pm-65- my $frame = $debug_window->Frame()->pack(-expand=>0,-fill=>'both',-anchor=>'nw');
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Window.pm:66: my $go = $frame->Button(-text => 'eval()', -command => sub { &exec_debug($debug_window) } )->pack(-expand => 0, -fill => 'none', -anchor=>'nw', -side=>'left');
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Window.pm-67-
##############################################
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Window.pm-199- # Run the perl.
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Window.pm:200: eval ("package main;\n" . $perl);
libur-perl-0.470+ds/lib/UR/Namespace/Command/Test/Window.pm-201-
##############################################
libur-perl-0.470+ds/lib/UR/Object.pm-758- and
libur-perl-0.470+ds/lib/UR/Object.pm:759: refaddr($UR::Context::all_objects_loaded->{$class}{$id}) == refaddr($obj)
libur-perl-0.470+ds/lib/UR/Object.pm-760- ) {
##############################################
libur-perl-0.470+ds/lib/UR/Object.pm-774- if ($obj->__meta__->is_meta_meta or @{[$obj->__changes__]}) {
libur-perl-0.470+ds/lib/UR/Object.pm:775: die "Object found in all_objects_loaded does not match destroyed ref/id! $obj/$id!" unless refaddr($obj) == refaddr($obj_from_cache);
libur-perl-0.470+ds/lib/UR/Object.pm-776- $obj->_save_object_from_destruction();
##############################################
libur-perl-0.470+ds/lib/UR/Object/Command/List.pm-239- my $o;
libur-perl-0.470+ds/lib/UR/Object/Command/List.pm:240: if (eval('sub { ' . $expr . ')}')) {
libur-perl-0.470+ds/lib/UR/Object/Command/List.pm-241- push @show, $expr . ')';
##############################################
libur-perl-0.470+ds/lib/UR/Object/Ghost.pm-33-
libur-perl-0.470+ds/lib/UR/Object/Ghost.pm:34: my $ghost_copy = eval("no strict; no warnings; " . Data::Dumper::Dumper($self));
libur-perl-0.470+ds/lib/UR/Object/Ghost.pm-35- if ($@) {
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-167-
libur-perl-0.470+ds/lib/UR/Object/Join.pm:168: if (my $where = $pmeta->where) {
libur-perl-0.470+ds/lib/UR/Object/Join.pm-169- my $join = pop @joins;
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-179- my %join_data = %$join;
libur-perl-0.470+ds/lib/UR/Object/Join.pm:180: push @joins, $class->_get_or_define(%join_data, id => $id, where => $where, sub_group_label => $pmeta->property_name);
libur-perl-0.470+ds/lib/UR/Object/Join.pm-181- }
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-257- my @joins;
libur-perl-0.470+ds/lib/UR/Object/Join.pm:258: my $where = $pmeta->where;
libur-perl-0.470+ds/lib/UR/Object/Join.pm-259- my $foreign_class_meta = $foreign_class->__meta__;
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-344-
libur-perl-0.470+ds/lib/UR/Object/Join.pm:345: where => $where,
libur-perl-0.470+ds/lib/UR/Object/Join.pm-346- );
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-363- my @joins;
libur-perl-0.470+ds/lib/UR/Object/Join.pm:364: my $where = $pmeta->where;
libur-perl-0.470+ds/lib/UR/Object/Join.pm-365- my $property_name = $pmeta->property_name;
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-384- my @join_data = map { { %$_ } } $foreign_property_via->_resolve_join_chain();
libur-perl-0.470+ds/lib/UR/Object/Join.pm:385: my $prev_where = $where;
libur-perl-0.470+ds/lib/UR/Object/Join.pm-386- for (@join_data) {
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-388-
libur-perl-0.470+ds/lib/UR/Object/Join.pm:389: my $next_where = $_->{where};
libur-perl-0.470+ds/lib/UR/Object/Join.pm-390- $_->{where} = $prev_where;
##############################################
libur-perl-0.470+ds/lib/UR/Object/Join.pm-407-
libur-perl-0.470+ds/lib/UR/Object/Join.pm:408: $prev_where = $next_where;
libur-perl-0.470+ds/lib/UR/Object/Join.pm-409- }
##############################################
libur-perl-0.470+ds/lib/UR/Object/Property.pm-242- my $other_class_meta = $to_meta->class_meta;
libur-perl-0.470+ds/lib/UR/Object/Property.pm:243: my $where = $self->where;
libur-perl-0.470+ds/lib/UR/Object/Property.pm-244- for (my $i = 0; $i < @$where; $i += 2) {
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-386- my @collected_where;
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm:387: @collected_where = @$where if ($where);
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-388- push @collected_where, @{ $via_property_meta->where } if ($via_property_meta->where);
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-552- my ($ur_object_type, $class_name, $accessor_name, $via, $to, $where) = @_;
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm:553: my @where = ($where ? @$where : ());
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-554- my $full_name = join( '::', $class_name, $accessor_name );
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-704- $property_name ||= $accessor_name;
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm:705: my @where = ($where ? @$where : ());
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-706- my $full_name = join( '::', $class_name, $accessor_name );
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-1212- my @property_names;
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm:1213: my @where = ($where ? @$where : ());
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-1214-
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-1725- my $is_transient = $property_data->{is_transient};
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm:1726: my $where = $property_data->{where};
libur-perl-0.470+ds/lib/UR/Object/Type/AccessorWriter.pm-1727-
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/InternalAPI.pm-147- $flattened_name .= $join->{source_name_for_foreign};
libur-perl-0.470+ds/lib/UR/Object/Type/InternalAPI.pm:148: if (my $where = $join->{where}) {
libur-perl-0.470+ds/lib/UR/Object/Type/InternalAPI.pm-149- $flattened_name .= '-' . $join->sub_group_label;
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/ModuleWriter.pm-394-
libur-perl-0.470+ds/lib/UR/Object/Type/ModuleWriter.pm:395: my @where = @{ $property->where };
libur-perl-0.470+ds/lib/UR/Object/Type/ModuleWriter.pm-396- while (@where) {
##############################################
libur-perl-0.470+ds/lib/UR/Object/Type/ModuleWriter.pm-730-
libur-perl-0.470+ds/lib/UR/Object/Type/ModuleWriter.pm:731: my $rv = system qq(perl -e 'eval `cat $temp`' 2>/dev/null 1>/dev/null);
libur-perl-0.470+ds/lib/UR/Object/Type/ModuleWriter.pm-732- $rv /= 255;
##############################################
libur-perl-0.470+ds/lib/UR/Service/WebServer.pm-79- my $sock = $self->server->listen_sock;
libur-perl-0.470+ds/lib/UR/Service/WebServer.pm:80: my $host = ($sock->sockhost eq '0.0.0.0') ? Sys::Hostname::hostname() : gethostbyaddr($sock->sockaddr, AF_INET);
libur-perl-0.470+ds/lib/UR/Service/WebServer.pm-81- $self->status_message(sprintf('Listening on http://%s:%d/', $host, $sock->sockport));
##############################################
libur-perl-0.470+ds/lib/UR/Util.pm-218- no warnings qw(redefine);
libur-perl-0.470+ds/lib/UR/Util.pm:219: eval($substr);
libur-perl-0.470+ds/lib/UR/Util.pm-220- if ($@) {
##############################################
libur-perl-0.470+ds/t/CmdTest/t/01-mutual-resolution-via-to.t-26-
libur-perl-0.470+ds/t/CmdTest/t/01-mutual-resolution-via-to.t:27:my $result1 = `$^X \Q$path\E --thing=two`;
libur-perl-0.470+ds/t/CmdTest/t/01-mutual-resolution-via-to.t-28-chomp $result1;
##############################################
libur-perl-0.470+ds/t/CmdTest/t/01-mutual-resolution-via-to.t-30-
libur-perl-0.470+ds/t/CmdTest/t/01-mutual-resolution-via-to.t:31:my $result2 = `$^X \Q$path\E --thing-name=two`;
libur-perl-0.470+ds/t/CmdTest/t/01-mutual-resolution-via-to.t-32-chomp $result2;
##############################################
libur-perl-0.470+ds/t/URT/t/03i_rule_hard_refs_with_ur_objects.t-242- if (ref($got_elements->[$i]) and ref($elements->[$i])) {
libur-perl-0.470+ds/t/URT/t/03i_rule_hard_refs_with_ur_objects.t:243: is(refaddr($got_elements->[$i]), refaddr($elements->[$i]), "Element $i is the same reference");
libur-perl-0.470+ds/t/URT/t/03i_rule_hard_refs_with_ur_objects.t-244- } else {
##############################################
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-63- # It should update the object's value to match the newly reloaded DB data
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t:64: ok($dbh->do("update $test_table set value = 2 where thing_id = $this_pass_obj_id"), 'Updated value for thing in the DB to 2');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-65- ok(eval { $cx->reload($thing) }, 'Reloaded object again');
##############################################
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-79- # Make a change to the DB, and the exact same change to the object
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t:80: ok($dbh->do("update $test_table set value = 3 where thing_id = $this_pass_obj_id"), 'Updated value for thing in the DB to 3');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-81- ok($thing->value(3), "Changed the object's value to 3");
##############################################
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-90- # Make a change to the DB data, and a different cahange to the object. This should fail
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t:91: ok($dbh->do("update $test_table set value = 4 where thing_id = $this_pass_obj_id"), 'Updated value for thing in the DB to 4');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-92- ok($thing->value(5), "Changed the object's value to 5");
##############################################
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-105- ok(UR::Context->commit(), 'calling commit()');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t:106: ok($dbh->do("update $test_table set value = 6 where thing_id = $this_pass_obj_id"), 'Updated value for thing in the DB to 6');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-107- ok(eval { $cx->reload($thing) },'Reloading object again');
##############################################
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-113- ok(UR::Context->commit(), 'calling commit()');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t:114: ok($dbh->do("update $test_table set value = 7 where thing_id = $this_pass_obj_id"), 'Updated value for thing in the DB to 7');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-115- ok($thing->value(8), 'Changed object value to 8');
##############################################
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-122- ok(UR::Context->commit(), 'calling commit()');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t:123: ok($dbh->do("update $test_table set value = 10 where thing_id = $this_pass_obj_id"), 'Updated value for thing in the DB to 10');
libur-perl-0.470+ds/t/URT/t/65_reload_with_changing_db_data.t-124- ok($thing->value(11), 'Changed object value to 11');
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-64-
libur-perl-0.470+ds/t/URT/t/71_ur_value.t:65:my $s1_refaddr = Scalar::Util::refaddr($s1);
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-66-ok($s1->unload(), 'Unload the original string object');
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-73-is($s1->id, 'hi there', 'It has the right id');
libur-perl-0.470+ds/t/URT/t/71_ur_value.t:74:isnt(Scalar::Util::refaddr($s1), $s1_refaddr, 'It is not the original object reference');
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-75-
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-216- is($path->size, 0, 'file path size is zero');
libur-perl-0.470+ds/t/URT/t/71_ur_value.t:217: system("echo hello > $path");
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-218- isnt($path->size, 0, "file path size isn't zero");
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-275- isa_ok($s2, 'UR::Value::Text', 'got another');
libur-perl-0.470+ds/t/URT/t/71_ur_value.t:276: is(refaddr($s1), refaddr($s2), 'they are the same object');
libur-perl-0.470+ds/t/URT/t/71_ur_value.t-277-};
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-62- my $o2 = $test_class->get($o->id);
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:63: is( Scalar::Util::refaddr($o),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:64: Scalar::Util::refaddr($o2),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-65- "re-getting the same $test_class returns the same instance");
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-73- $o2 = $test_class->get($o->id);
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:74: is( Scalar::Util::refaddr($o),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:75: Scalar::Util::refaddr($o2),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-76- "re-getting the same $test_class returns the same instance");
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-92- my $o2 = $test_class->get($o->id);
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:93: is( Scalar::Util::refaddr($o),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:94: Scalar::Util::refaddr($o2),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-95- 're-getting the same object returns the same instance');
##############################################
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-103- $o2 = $test_class->get($o->id);
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:104: is( Scalar::Util::refaddr($o),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t:105: Scalar::Util::refaddr($o2),
libur-perl-0.470+ds/t/URT/t/71_ur_value_multiple_id_properties.t-106- 're-getting the same object returns the same instance');
##############################################
libur-perl-0.470+ds/t/URT/t/92_save_object_with_propertyless_column.t-54-
libur-perl-0.470+ds/t/URT/t/92_save_object_with_propertyless_column.t:55:@row = $dbh->selectrow_array("select foo_id,name,missing from foo where foo_id = $new_object_id");
libur-perl-0.470+ds/t/URT/t/92_save_object_with_propertyless_column.t-56-ok(scalar(@row), 'Found row in database for created object');
##############################################
libur-perl-0.470+ds/t/URT/t/99_transaction.t-378- #system "opendiff $f1 $f2";
libur-perl-0.470+ds/t/URT/t/99_transaction.t:379: return `sdiff -s $f1 $f2`;
libur-perl-0.470+ds/t/URT/t/99_transaction.t-380-}
##############################################
libur-perl-0.470+ds/t/above.t-29-my $src = $^X . q| -e 'use above "Foo"; print $INC{"Foo.pm"}'|;
libur-perl-0.470+ds/t/above.t:30:my $v = `$src`;
libur-perl-0.470+ds/t/above.t-31-is(&clean_darwin($v), "$d/lib2/Foo.pm",
##############################################
libur-perl-0.470+ds/t/above.t-34-chdir "$d/lib1" or die "Failed to chdir to $d/lib1: $!";
libur-perl-0.470+ds/t/above.t:35:$v = `$src`;
libur-perl-0.470+ds/t/above.t-36-is(&clean_darwin($v), "$d/lib2/Foo.pm",
##############################################
libur-perl-0.470+ds/t/class_browser/internal.t-72-
libur-perl-0.470+ds/t/class_browser/internal.t:73: ok( $cmd->_load_class_info_from_modules_on_filesystem($NAMESPACE) ,'_load_class_info_from_modules_on_filesystem');
libur-perl-0.470+ds/t/class_browser/internal.t-74-
##############################################
libur-perl-0.470+ds/t/class_browser/internal.t-105-
libur-perl-0.470+ds/t/class_browser/internal.t:106: ok( $cmd->_load_class_info_from_modules_on_filesystem($NAMESPACE) ,'_load_class_info_from_modules_on_filesystem');
libur-perl-0.470+ds/t/class_browser/internal.t-107- my $tree = $cmd->name_tree_cache($NAMESPACE);
##############################################
libur-perl-0.470+ds/t/class_browser/internal.t-134-
libur-perl-0.470+ds/t/class_browser/internal.t:135: ok( $cmd->_load_class_info_from_modules_on_filesystem($NAMESPACE) ,'_load_class_info_from_modules_on_filesystem');
libur-perl-0.470+ds/t/class_browser/internal.t-136- my $tree = $cmd->inheritance_tree_cache($NAMESPACE);
##############################################
libur-perl-0.470+ds/.pc/Honour-SOURCE_DATE_EPOCH-for-embedded-timestamp-in-genera.patch/lib/Command/V1.pm-1355-
libur-perl-0.470+ds/.pc/Honour-SOURCE_DATE_EPOCH-for-embedded-timestamp-in-genera.patch/lib/Command/V1.pm:1356: my $ec = system ( $cmdline );
libur-perl-0.470+ds/.pc/Honour-SOURCE_DATE_EPOCH-for-embedded-timestamp-in-genera.patch/lib/Command/V1.pm-1357-