Searched refs:copy1 (Results 1 - 5 of 5) sorted by relevance

/openbsd-current/gnu/usr.bin/perl/dist/Storable/t/
H A Dinteger.t123 my $copy1 = my $copy2 = my $copy0 = $number;
138 # my $eq = do {use integer; $copy_s1 == $copy1} && $copy_s1 == $copy1;
146 # $eq = && (($copy_s1 <=> 0) == ($copy1 <=> 0));
152 # my $bit = ok (($copy_s1 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
158 my $bit = ok (($copy_s3 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
160 "$process $copy1 (sign)");
164 $copy1,
[all...]
/openbsd-current/gnu/usr.bin/perl/lib/File/
H A DCopy.t297 my $copy1 = "copy1-$$";
319 ! -e $_ or unlink $_ or die $! for $copy1, $copy2, $copy4, $copy5;
334 open my $fh0, '>', $copy1 or die "Can't open $copy1: $!";
335 close $fh0 or die "Can't close $copy1: $!";
336 unless (chmod $s_perm, $copy1) {
337 $TB->skip(sprintf "Can't chmod $copy1 to %o: $!", $s_perm)
341 my $perm0 = (stat $copy1) [2] & 07777;
343 $TB->skip(sprintf "chmod %o $copy1 lie
[all...]
/openbsd-current/gnu/usr.bin/perl/t/op/
H A Dwrite.t1464 my $copy1 = $first;
1467 is swrite("$format", $copy1, $copy2), $expect, $name;
1471 my ($copy1, $copy2) = ($first, $second);
1472 is swrite("$format", $copy1, $copy2), $expect, $name;
/openbsd-current/gnu/usr.bin/binutils/ld/
H A Dldlang.c1561 char *copy1;
1565 copy1 = xmalloc (strlen (first) + 1);
1569 stricpy (copy1, first);
1573 strcut (copy1, "big");
1574 strcut (copy1, "little");
1581 for (result = 0; copy1[result] == copy2[result]; result++)
1582 if (copy1[result] == 0)
1588 free (copy1);
1559 char *copy1; local
/openbsd-current/gnu/usr.bin/binutils-2.17/ld/
H A Dldlang.c2528 char *copy1;
2532 copy1 = xmalloc (strlen (first) + 1);
2536 stricpy (copy1, first);
2540 strcut (copy1, "big");
2541 strcut (copy1, "little");
2548 for (result = 0; copy1[result] == copy2[result]; result++)
2549 if (copy1[result] == 0)
2555 free (copy1);
2526 char *copy1; local

Completed in 581 milliseconds