Re: [perl #37876] Bug with Parrot::IO test

Alberto Simões Sat, 10 Dec 2005 13:03:30 -0800

We can depend on 3.13 instead of 3.14.
From File::Spec Changelog:


3.13  Tue Nov 15 23:50:37 CST 2005

[...]

 - abs2rel() used to return the empty string when its two arguments
   were identical, which made no sense.  Now it returns
   curdir(). [Spotted by David Golden]

So, maybe we should replace '.' by File::Spec->curdir() but I'm not sure.

Alberto

Parrot Assembler via RT wrote:

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-------------------------------------------------------------------------

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


--
Alberto Simões - Departamento de Informática - Universidade do Minho
                 Campus de Gualtar - 4710-057 Braga - Portugal

Re: [perl #37876] Bug with Parrot::IO test

Reply via email to