Re^2: Prune File Find search

Replies are listed 'Best First'.
Re: Re^2: Prune File Find search by demerphq (Chancellor) on Jul 28, 2003 at 17:57 UTC
Whelp it sure dont on my system. :-) And im pretty sure I reported this. But I dont remember for sure. BTW, yes I know that the latest 5.6.1 is 635, however as _that_ build breaks Inline::CPP for unknown reasons I have no intention of "upgrading" to it for File::Find::Rule. D:\Development\OldEverest\C++\bin>perl -MCPAN -e"install File::Find::R +ule" CPAN: Storable loaded ok Going to read E:\.cpan\Metadata Database was generated on Thu, 17 Jul 2003 19:45:08 GMT CPAN: LWP::UserAgent loaded ok Fetching with LWP: ftp://ftp.gmd.de/mirrors/CPAN/authors/01mailrc.txt.gz Going to read E:\.cpan\sources\authors\01mailrc.txt.gz CPAN: Compress::Zlib loaded ok Fetching with LWP: ftp://ftp.gmd.de/mirrors/CPAN/modules/02packages.details.txt.gz Going to read E:\.cpan\sources\modules\02packages.details.txt.gz Database was generated on Sun, 27 Jul 2003 17:16:21 GMT CPAN: HTTP::Date loaded ok There's a new CPAN.pm version (v1.71) available! [Current version is v1.59_54] You might want to try install Bundle::CPAN reload cpan without quitting the current session. It should be a seamless upgrad +e while we are running... Fetching with LWP: ftp://ftp.gmd.de/mirrors/CPAN/modules/03modlist.data.gz Going to read E:\.cpan\sources\modules\03modlist.data.gz Going to write E:\.cpan\Metadata Running install for module File::Find::Rule Running make for R/RC/RCLAMP/File-Find-Rule-0.10.tar.gz CPAN: MD5 loaded ok Checksum for E:\.cpan\sources\authors\id\R\RC\RCLAMP\File-Find-Rule-0. +10.tar.gz ok Scanning cache E:\.cpan\build for sizes Using external gzip/tar combination Its compressed, using a pipe. File-Find-Rule-0.10/ File-Find-Rule-0.10/Extending.pod File-Find-Rule-0.10/t/ File-Find-Rule-0.10/t/lib/ File-Find-Rule-0.10/t/lib/File/ File-Find-Rule-0.10/t/lib/File/Find/ File-Find-Rule-0.10/t/lib/File/Find/Rule/ File-Find-Rule-0.10/t/lib/File/Find/Rule/Test/ File-Find-Rule-0.10/t/lib/File/Find/Rule/Test/ATeam.pm File-Find-Rule-0.10/t/File-Find-Rule.t File-Find-Rule-0.10/t/foobar File-Find-Rule-0.10/MANIFEST File-Find-Rule-0.10/findrule File-Find-Rule-0.10/Rule.pm File-Find-Rule-0.10/Changes File-Find-Rule-0.10/Makefile.PL File-Find-Rule-0.10/README Removing previously used E:\.cpan\build\File-Find-Rule-0.10 CPAN.pm: Going to build R/RC/RCLAMP/File-Find-Rule-0.10.tar.gz Checking if your kit is complete... Looks good Writing Makefile for File::Find::Rule Microsoft (R) Program Maintenance Utility Version 7.00.9466 Copyright (C) Microsoft Corporation. All rights reserved. cp Rule.pm blib\lib\File\Find/Rule.pm cp Extending.pod blib\lib\File\Find/Rule/Extending.pod E:\Perl\bin\perl.exe -IE:\Perl\lib -IE:\Perl\lib -MExtUtils::C +ommand -e cp findrule blib\script\findrule E:\Perl\bin\perl.exe -IE:\Perl\lib -IE:\Perl\lib -e "system q +q[pl2bat.bat ].shift" blib\script\findrule E:\DotNet\VC7\BIN\nmake.EXE -- OK Running make test Microsoft (R) Program Maintenance Utility Version 7.00.9466 Copyright (C) Microsoft Corporation. All rights reserved. E:\Perl\bin\perl.exe -IE:\Perl\lib -IE:\Perl\lib -MExtUtils::C +ommand -e cp findrule blib\script\findrule E:\Perl\bin\perl.exe -IE:\Perl\lib -IE:\Perl\lib -e "system q +q[pl2bat.bat ].shift" blib\script\findrule E:\Perl\bin\perl.exe -Mblib -IE:\Perl\lib -IE:\Perl\lib -e "us +e Test::Harness qw(&runtests $verbose); $verbose=0 ; runtests @ARGV;" t\File-Find-Rule.t Using E:/.cpan/build/File-Find-Rule-0.10/blib t\File-Find-Rule....ok 36/40# Failed test (t\File-Find-Rule.t at l +ine 281) # Structures begin differing at: # $got->[0] = 'unknown option 'foobar'' # $expected->[0] = 't/File-Find-Rule.t' t\File-Find-Rule....NOK 37# Failed test (t\File-Find-Rule.t at lin +e 284) # Structures begin differing at: # $got->[0] = 'unknown option 'foo'' # $expected->[0] = 't/foobar' t\File-Find-Rule....ok 40/40# Looks like you failed 2 tests of 40. t\File-Find-Rule....dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 37-38 Failed 2/40 tests, 95.00% okay Failed Test Stat Wstat Total Fail Failed List of Failed ---------------------------------------------------------------------- +--------- t\File-Find-Rule.t 2 512 40 2 5.00% 37-38 Failed 1/1 test scripts, 0.00% okay. 2/40 subtests failed, 95.00% okay +. NMAKE : fatal error U1077: 'E:\Perl\bin\perl.exe' : return code '0x2' Stop. E:\DotNet\VC7\BIN\nmake.EXE test -- NOT OK Running make install make test had returned bad status, won't install without force D:\Development\OldEverest\C++\bin>perl -v This is perl, v5.6.1 built for MSWin32-x86-multi-thread (with 1 registered patch, see perl -V for more detail) Copyright 1987-2001, Larry Wall Binary build 633 provided by ActiveState Corp. http://www.ActiveState. +com Built 21:33:05 Jun 17 2002 Perl may be copied only under the terms of either the Artistic License + or the GNU General Public License, which may be found in the Perl 5 source ki +t. Complete documentation for Perl, including FAQ lists, should be found +on this system using `man perl' or `perldoc perl'. If you have access to + the Internet, point your browser at http://www.perl.com/, the Perl Home Pa +ge. [download] --- demerphq _{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}	[reply] [d/l] [select]
Re: Re^2: Prune File Find search by demerphq (Chancellor) on Jul 28, 2003 at 18:41 UTC
And I just found the bug too. In .\File-Find-Rule-0.10\t\File-Find-Rule.t there is a subroutine called 'run'. It says: `$expr =~ s~\\~~g if ($^O eq 'Win32' \|\| $^O eq 'dos');` [download] Which is wrong: `D:\>perl -e "print $^O" MSWin32 D:\>e:\perl805\bin\perl -e "print $^O" MSWin32` [download] It should IMO read `$expr =~ s~\\~~g if ($^O eq 'MSWin32' \|\| $^O eq 'dos');` [download] And frankly given this bug I manifestly fail to see how it installed successfully on the systems you have listed. Are you sure you installed 0.10 which is the latest? Can you please prove your claim? Along with the value of $^O on your various installs? --- demerphq _{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language... • Update: Reported this to the author via RT.}	[reply] [d/l] [select]
Re: Re: Re^2: Prune File Find search by DrHyde (Prior) on Jul 29, 2003 at 07:50 UTC
`if($^O =~ /Win32/ ...` would probably be better, as I'm quite sure that Richard will have tested it on Windows at some point and found it to work as it is on some combination of perl and Windows. This won't clash with Cygwin, as in that case, `$^O eq 'cygwin'`.	[reply] [d/l] [select]
Re: Re: Re: Re^2: Prune File Find search by Anonymous Monk on Jul 29, 2003 at 19:20 UTC
No, I'm afraid I didn't. I thank whoever it was for reporting the issue via rt.cpan.org, I'm just now working on an interim 0.11 release before going back to finishing off the shinier 0.20 branch. -- Richard Clamp	[reply]
Re^4: Prune File Find search by particle (Vicar) on Jul 29, 2003 at 13:33 UTC
indeed, you are correct. i do have File::Find::Rule installed, but t\File-Find-Rule.t does not match the date in the distro. i must have modified it when installing, and forgotten to submit a patch to rt. the line you mention reads, in my distro: `$expr =~ s~\\~~g if ($^O =~ m/Win32/ or $^O eq 'dos');` [download] i believe this test is more accurate than that in the orginal distro (as it works for me.) ~Particle accelerates	[reply] [d/l]


Problems? Is your data what you think it is?
	PerlMonks