Greetings,
This message has been automatically generated in response to the
creation of a parrotbug regarding:
"Bug with Parrot::IO test"
There is no need to reply to this message right now. Your ticket has been
assigned an ID of [perl #37876].
Please include the string:
[perl #37876]
In the subject line of all future correspondence about this issue. To do so,
you may reply to this message.
Thank you,
parrotbug
https://rt.perl.org/rt3/Ticket/Display.html?id=37876
-------------------------------------------------------------------------
Received: (qmail 21338 invoked by alias); 10 Dec 2005 20:37:58 -0000
Received: (qmail 21334 invoked from network); 10 Dec 2005 20:37:58 -0000
Received: from localhost (HELO la.mx.develooper.com) (127.0.0.1) by localhost
with SMTP; 10 Dec 2005 20:37:58 -0000
Received: (qmail 21330 invoked by alias); 10 Dec 2005 20:37:58 -0000
Received: from la.mx.develooper.com (HELO x1.develooper.com) (63.251.223.176)
by la.mx.develooper.com (qpsmtpd/0.28) with SMTP; Sat, 10 Dec 2005 12:37:51
-0800
Received: (qmail 21290 invoked by uid 225); 10 Dec 2005 20:37:48 -0000
Received: (qmail 21286 invoked by alias); 10 Dec 2005 20:37:47 -0000
Received: from eremita.di.uminho.pt (HELO eremita.di.uminho.pt)
(193.136.19.131) by la.mx.develooper.com (qpsmtpd/0.28) with ESMTP; Sat, 10 Dec
2005 12:37:40 -0800
Received: by eremita.di.uminho.pt (Postfix, from userid 1000) id BEC9015704B;
Sat, 10 Dec 2005 20:38:45 +0000 (WET)
Delivered-To: [EMAIL PROTECTED]
Delivered-To: [EMAIL PROTECTED]
Delivered-To: [EMAIL PROTECTED]
User-Agent: Mutt/1.4.2.1i
MIME-Version: 1.0
Subject: Bug with Parrot::IO test
X-Spam-Status: No, hits=-2.6 required=8.0 tests=BAYES_00
Return-Path: <[EMAIL PROTECTED]>
X-Spam-Check-BY: la.mx.develooper.com
X-Old-Spam-Status: No, hits=-2.6 required=8.0 tests=BAYES_00
Content-Disposition: inline
Date: Sat, 10 Dec 2005 20:38:45 +0000
Received-SPF: neutral (x1.develooper.com: local policy)
Received-SPF: pass (x1.develooper.com: local policy)
X-Old-Spam-Check-BY: la.mx.develooper.com
content-type: text/plain; charset="utf-8"
Message-ID: <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Content-Transfer-Encoding: 8bit
From: Alberto Manuel Brandao Simoes <[EMAIL PROTECTED]>
X-RT-Original-Encoding: iso-8859-1
---
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
