summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-01-30 18:13:38 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-01-30 18:13:38 +0000
commit2eb25c996f78f171b9e185efef03146c255a8fd3 (patch)
tree20a494200ab76bd7070241c194f068ab7fa259ff /t
parentf34ff0a86757211b63e07b9af6f912d0bd126d80 (diff)
downloadperl-2eb25c996f78f171b9e185efef03146c255a8fd3.tar.gz
Integrate changes #8608,8609,8610,8611,8612,8613 from maintperl.
perl's internal variables are not for public consumption, move their docs from perlapi.pod to perlintern.pod support for -Dusethreads build under HP-UX 10.20 and DCE threads library (11.0 and later have pthreads but 10.x don't) avoid uninitialized value warnings canonicalize paths when doing chdir() on windows (or Cwd::getcwd() gets weird results) perldoc nit on windows make it possible to run the tests outside the source tree (there's still a dependency on ../lib being the library location) p4raw-link: @8612 on //depot/maint-5.6/perl: 21b80573951053245624647c6ea0077acae22b99 p4raw-link: @8611 on //depot/maint-5.6/perl: 706e8e4d2d0a6985197cb1cb76dc3d2575cd159e p4raw-link: @8610 on //depot/maint-5.6/perl: fc1aae957f18d75529c72450055ab0d424b7d318 p4raw-link: @8609 on //depot/maint-5.6/perl: 13b98125bf15a4dfacaa2c6f56d3742c97180500 p4raw-link: @8608 on //depot/maint-5.6/perl: f893c726cdaa1ccdec167db9b2ff5c2fdc19e29b p4raw-id: //depot/perl@8614 p4raw-integrated: from //depot/maint-5.6/perl@8596 'copy in' t/lib/dprof/V.pm t/op/flip.t utils/perldoc.PL (@8159..) win32/bin/search.pl (@8166..) t/io/tell.t (@8175..) hints/hpux.sh (@8601..) thread.h (@8606..) 'ignore' pod/perlintern.pod (@7766..) pod/perlapi.pod (@8605..) 'merge in' intrpvar.h t/base/term.t (@7895..) win32/vdir.h (@8156..) thrdvar.h (@8602..) perlapi.c (@8606..)
Diffstat (limited to 't')
-rwxr-xr-xt/base/term.t2
-rwxr-xr-xt/io/tell.t4
-rw-r--r--t/lib/dprof/V.pm5
-rwxr-xr-xt/op/flip.t2
4 files changed, 8 insertions, 5 deletions
diff --git a/t/base/term.t b/t/base/term.t
index 49df11fa31..061cd33b1e 100755
--- a/t/base/term.t
+++ b/t/base/term.t
@@ -48,5 +48,5 @@ else {
die "/dev/null IS NOT A CHARACTER SPECIAL FILE!!!!\n" unless -c '/dev/null';
}
-open(try, "../Configure") || (die "Can't open ../Configure.");
+open(try, "harness") || (die "Can't open harness.");
if (<try> ne '') {print "ok 7\n";} else {print "not ok 7\n";}
diff --git a/t/io/tell.t b/t/io/tell.t
index 560836d5e0..c840c9232a 100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -9,7 +9,7 @@ $TST = 'tst';
$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
$^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin');
-open($TST, '../Configure') || (die "Can't open ../Configure");
+open($TST, 'harness') || (die "Can't open harness");
binmode $TST if $Is_Dosish;
if (eof(tst)) { print "not ok 1\n"; } else { print "ok 1\n"; }
@@ -49,7 +49,7 @@ unless (eof) { print "not ok 13\n"; } else { print "ok 13\n"; }
if ($. == 0) { print "not ok 14\n"; } else { print "ok 14\n"; }
$curline = $.;
-open(other, '../Configure') || (die "Can't open ../Configure");
+open(other, 'harness') || (die "Can't open harness: $!");
binmode other if $^O eq 'MSWin32';
{
diff --git a/t/lib/dprof/V.pm b/t/lib/dprof/V.pm
index cbdeca4eda..152cddc253 100644
--- a/t/lib/dprof/V.pm
+++ b/t/lib/dprof/V.pm
@@ -17,7 +17,10 @@ $dpp .= '.com' if $^O eq 'VMS';
print "\nperl: $perl\n" if $opt_v;
if( ! -f $perl ){ die "Where's Perl?" }
-if( ! -f $dpp ){ die "Where's dprofpp?" }
+if( ! -f $dpp ) {
+ ($dpp = $^X) =~ s@(^.*)[/|\\].*@$1/dprofpp@;
+ die "Where's dprofpp?" if( ! -f $dpp );
+}
sub dprofpp {
my $switches = shift;
diff --git a/t/op/flip.t b/t/op/flip.t
index f66af27d4d..99b22eff94 100755
--- a/t/op/flip.t
+++ b/t/op/flip.t
@@ -17,7 +17,7 @@ if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";}
@a = ('a','b','c','d','e','f','g');
-open(of,'../Configure');
+open(of,'harness') or die "Can't open harness: $!";
while (<of>) {
(3 .. 5) && ($foo .= $_);
}