# New Ticket Created by Alberto Manuel Brandao Simoes
# Please include the string: [perl #37876]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37876 >
---
osname= darwin
osvers= 8.0
arch= darwin-thread-multi-2level
cc= cc
---
Flags:
category=core
severity=medium
ack=no
---
New File::Spec returns '.' if the directory is the same, instead of the old ''.
This diff should be in attach, I know, but I still need to learn how to do it,
but the diff is very small :-)
By the way, if there is a list of dependencies somewhere, File::Spec should
be added with version 3.14
Index: t/perl/Parrot_IO.t
===================================================================
--- t/perl/Parrot_IO.t (revision 10433)
+++ t/perl/Parrot_IO.t (working copy)
@@ -97,7 +97,7 @@
ok($f1 && $f2, 'file_with_name');
# Relative paths.
-is($d->relative_path($d->path), '', 'relative_path same dir');
+is($d->relative_path($d->path), '.', 'relative_path same dir');
is($d1->relative_path($f1->path), 'file1.txt', 'relative_path same file');
is($d->relative_path($d1->path), 'one', 'relative_path down to dir');
is($d->relative_path($f1->path), catfile(qw(one file1.txt)),
---
Summary of my parrot 0.4.0 (r10432) configuration:
configdate='Sat Dec 10 19:56:11 2005'
Platform:
osname=darwin, archname=darwin-thread-multi-2level
jitcapable=1, jitarchname=ppc-darwin,
jitosname=DARWIN, jitcpuarch=ppc
execcapable=1
perl=perl
Compiler:
cc='gcc -L/sw/lib -I/sw/include', ccflags='-g -pipe -fno-common
-no-cpp-precomp -I/usr/local/include -pipe -fno-common -Wno-long-double ',
Linker and Libraries:
ld='gcc -L/sw/lib -I/sw/include', ldflags='-L/usr/local/lib -flat_namespace
',
cc_ldflags='',
libs='-lm -lgmp'
Dynamic Linking:
share_ext='.dylib', ld_share_flags='-dynamiclib',
load_ext='.bundle', ld_load_flags='-bundle -undefined suppress'
Types:
iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
ptrsize=4, ptr_alignment=1 byteorder=4321,
nv=double, numvalsize=8, doublesize=8
---
Environment:
DYLD_LIBRARY_PATH HOME LANG LANGUAGE LD_LIBRARY_PATH LOGDIR
PATH PERL5LIB PERL5_CPANPLUS_CONFIG SHELL
--
Alberto Simões - Departamento de Informática - Universidade do Minho
Campus de Gualtar - 4710-057 Braga - Portugal
