r60361 - in /trunk/libsys-filesystem-perl: ./ debian/ lib/Sys/ lib/Sys/Filesystem/ t/
franck at users.alioth.debian.org
franck at users.alioth.debian.org
Fri Jul 16 21:22:45 UTC 2010
Author: franck
Date: Fri Jul 16 21:22:29 2010
New Revision: 60361
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60361
Log:
Integrating new upstream release into trunk.
Modified:
trunk/libsys-filesystem-perl/Changes
trunk/libsys-filesystem-perl/META.yml
trunk/libsys-filesystem-perl/README
trunk/libsys-filesystem-perl/debian/changelog
trunk/libsys-filesystem-perl/lib/Sys/Filesystem.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Aix.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Cygwin.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Darwin.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Dummy.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Freebsd.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Hpux.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Linux.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Mswin32.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Netbsd.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Solaris.pm
trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Unix.pm
trunk/libsys-filesystem-perl/t/00compile.t
trunk/libsys-filesystem-perl/t/02pod_coverage.t
trunk/libsys-filesystem-perl/t/03test.t
trunk/libsys-filesystem-perl/t/04whereami.t
Modified: trunk/libsys-filesystem-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/Changes?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/Changes (original)
+++ trunk/libsys-filesystem-perl/Changes Fri Jul 16 21:22:29 2010
@@ -1,3 +1,6 @@
+1.30 - 2010-07-15
+ Fixing MSWin32
+
1.29
Fixing MacOS X
Modified: trunk/libsys-filesystem-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/META.yml?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/META.yml (original)
+++ trunk/libsys-filesystem-perl/META.yml Fri Jul 16 21:22:29 2010
@@ -15,40 +15,40 @@
provides:
Sys::Filesystem:
file: lib/Sys/Filesystem.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Aix:
file: lib/Sys/Filesystem/Aix.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Cygwin:
file: lib/Sys/Filesystem/Cygwin.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Darwin:
file: lib/Sys/Filesystem/Darwin.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Dummy:
file: lib/Sys/Filesystem/Dummy.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Freebsd:
file: lib/Sys/Filesystem/Freebsd.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Hpux:
file: lib/Sys/Filesystem/Hpux.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Linux:
file: lib/Sys/Filesystem/Linux.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Mswin32:
file: lib/Sys/Filesystem/Mswin32.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Netbsd:
file: lib/Sys/Filesystem/Netbsd.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Solaris:
file: lib/Sys/Filesystem/Solaris.pm
- version: 1.29
+ version: 1.30
Sys::Filesystem::Unix:
file: lib/Sys/Filesystem/Unix.pm
- version: 1.29
+ version: 1.30
recommends:
Test::Pod: 0
Test::Pod::Coverage: 0
@@ -62,4 +62,4 @@
perl: 5.008
resources:
license: http://www.apache.org/licenses/LICENSE-2.0.txt
-version: 1.29
+version: 1.30
Modified: trunk/libsys-filesystem-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/README?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/README (original)
+++ trunk/libsys-filesystem-perl/README Fri Jul 16 21:22:29 2010
@@ -267,7 +267,7 @@
perlport, Solaris::DeviceTree, Win32::DriveInfo
VERSION
- $Id: Filesystem.pm 154 2010-07-02 10:01:34Z trevor $
+ $Id: Filesystem.pm 185 2010-07-15 19:25:30Z trevor $
AUTHOR
Nicola Worthington <nicolaw at cpan.org> - http://perlgirl.org.uk
Modified: trunk/libsys-filesystem-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/debian/changelog?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/debian/changelog (original)
+++ trunk/libsys-filesystem-perl/debian/changelog Fri Jul 16 21:22:29 2010
@@ -1,3 +1,9 @@
+libsys-filesystem-perl (1.30-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Franck Joncourt <franck at debian.org> Fri, 16 Jul 2010 23:21:50 +0200
+
libsys-filesystem-perl (1.29-1) UNRELEASED; urgency=low
IGNORE-VERSION: 1.29-1
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Filesystem.pm 154 2010-07-02 10:01:34Z trevor $
+# $Id: Filesystem.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -45,7 +45,7 @@
use constant SPECIAL => ( 'darwin' eq $^O ) ? 0 : undef;
#use constant SPECIAL => undef;
-$VERSION = '1.29';
+$VERSION = '1.30';
my ( $FsPlugin, $Supported );
@@ -603,7 +603,7 @@
=head1 VERSION
-$Id: Filesystem.pm 154 2010-07-02 10:01:34Z trevor $
+$Id: Filesystem.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Aix.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Aix.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Aix.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Aix.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Aix.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Aix.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -31,7 +31,7 @@
use Carp qw(croak);
use IO::File;
-$VERSION = '1.29';
+$VERSION = '1.30';
sub version()
{
@@ -327,7 +327,7 @@
=head1 VERSION
-$Id: Aix.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Aix.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Cygwin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Cygwin.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Cygwin.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Cygwin.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Cygwin.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Cygwin.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -30,7 +30,7 @@
use Carp qw(croak);
require Sys::Filesystem::Unix;
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -133,7 +133,7 @@
=head1 VERSION
-$Id: Cygwin.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Cygwin.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Darwin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Darwin.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Darwin.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Darwin.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Darwin.pm 157 2010-07-02 10:09:12Z trevor $
+# $Id: Darwin.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -34,7 +34,7 @@
use Carp qw(croak);
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -205,7 +205,7 @@
=head1 VERSION
-$Id: Darwin.pm 157 2010-07-02 10:09:12Z trevor $
+$Id: Darwin.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Dummy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Dummy.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Dummy.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Dummy.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Dummy.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Dummy.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -27,7 +27,7 @@
use Carp qw(croak);
use vars qw($VERSION);
-$VERSION = '1.29';
+$VERSION = '1.30';
sub version()
{
@@ -72,7 +72,7 @@
=head1 VERSION
-$Id: Dummy.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Dummy.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Freebsd.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Freebsd.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Freebsd.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Freebsd.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Freebsd.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Freebsd.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -31,7 +31,7 @@
require Sys::Filesystem::Unix;
use Carp qw(croak);
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -158,7 +158,7 @@
=head1 VERSION
-$Id: Freebsd.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Freebsd.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Hpux.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Hpux.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Hpux.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Hpux.pm Fri Jul 16 21:22:29 2010
@@ -1,5 +1,5 @@
# Sys::Filesystem - Retrieve list of filesystems and their properties
-# $Id: Hpux.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Hpux.pm 185 2010-07-15 19:25:30Z trevor $
#
# Copyright (c) 2009 H.Merijn Brand, All rights reserved.
# Copyright (c) 2009 Jens Rehsack, All rights reserved.
@@ -30,7 +30,7 @@
use Carp qw(croak);
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -100,7 +100,7 @@
=head1 VERSION
-$Id: Hpux.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Hpux.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Linux.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Linux.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Linux.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Linux.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Linux.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Linux.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -31,7 +31,7 @@
require IO::File;
require Sys::Filesystem::Unix;
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -218,7 +218,7 @@
=head1 VERSION
-$Id: Linux.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Linux.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Mswin32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Mswin32.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Mswin32.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Mswin32.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Mswin32.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Mswin32.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -30,7 +30,7 @@
use Carp qw(croak);
use vars qw($VERSION);
-$VERSION = '1.29';
+$VERSION = '1.30';
sub version()
{
@@ -68,14 +68,13 @@
$FileSystemName ||= 'CDFS' if ( $type == 5 );
- $self->{$drvletter}->{mount_point} = $drvRoot; # XXX Win32::DriveInfo gives no details here ...
- $self->{$drvletter}->{device} = $VolumeName;
- $self->{$drvletter}->{format} = $FileSystemName; # XXX Win32::DriveInfo gives sometime wrong information here
- $self->{$drvletter}->{options} = join( ',', map { $volInfoAttrs[$_] } @attr );
- $self->{$drvletter}->{mounted} = $type > 1;
- if ($mounted)
+ $self->{$drvRoot}->{mount_point} = $drvRoot; # XXX Win32::DriveInfo gives no details here ...
+ $self->{$drvRoot}->{device} = $VolumeName;
+ $self->{$drvRoot}->{format} = $FileSystemName; # XXX Win32::DriveInfo gives sometime wrong information here
+ $self->{$drvRoot}->{options} = join( ',', map { $volInfoAttrs[$_] } @attr );
+ if ( $self->{$drvRoot}->{mounted} = $type > 1 )
{
- $self->{$drvletter}->{type} = $typeExplain[$type];
+ $self->{$drvRoot}->{type} = $typeExplain[$type];
}
}
@@ -130,7 +129,7 @@
=head1 VERSION
-$Id: Mswin32.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Mswin32.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Netbsd.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Netbsd.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Netbsd.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Netbsd.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Netbsd.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Netbsd.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2009 Jens Rehsack
@@ -29,7 +29,7 @@
require Sys::Filesystem::Unix;
use Carp qw(croak);
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -137,7 +137,7 @@
=head1 VERSION
-$Id: Netbsd.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Netbsd.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Solaris.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Solaris.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Solaris.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Solaris.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Solaris.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Solaris.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -32,7 +32,7 @@
use Data::Dumper;
require Sys::Filesystem::Unix;
-$VERSION = '1.29';
+$VERSION = '1.30';
@ISA = qw(Sys::Filesystem::Unix);
sub version()
@@ -158,7 +158,7 @@
=head1 VERSION
-$Id: Solaris.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Solaris.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Unix.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Unix.pm?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Unix.pm (original)
+++ trunk/libsys-filesystem-perl/lib/Sys/Filesystem/Unix.pm Fri Jul 16 21:22:29 2010
@@ -1,6 +1,6 @@
############################################################
#
-# $Id: Unix.pm 153 2010-07-02 06:59:28Z trevor $
+# $Id: Unix.pm 185 2010-07-15 19:25:30Z trevor $
# Sys::Filesystem - Retrieve list of filesystems and their properties
#
# Copyright 2004,2005,2006 Nicola Worthington
@@ -30,7 +30,7 @@
use IO::File;
use vars qw($VERSION);
-$VERSION = '1.29';
+$VERSION = '1.30';
sub version()
{
@@ -340,7 +340,7 @@
=head1 VERSION
-$Id: Unix.pm 153 2010-07-02 06:59:28Z trevor $
+$Id: Unix.pm 185 2010-07-15 19:25:30Z trevor $
=head1 AUTHOR
Modified: trunk/libsys-filesystem-perl/t/00compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/t/00compile.t?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/t/00compile.t (original)
+++ trunk/libsys-filesystem-perl/t/00compile.t Fri Jul 16 21:22:29 2010
@@ -5,4 +5,4 @@
require_ok('Sys::Filesystem');
use_ok('Sys::Filesystem');
-diag( "Testing Sys::Filesystem $Sys::Filesystem::VERSION, Perl $], $^X" );
+diag("Testing Sys::Filesystem $Sys::Filesystem::VERSION, Perl $], $^X");
Modified: trunk/libsys-filesystem-perl/t/02pod_coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/t/02pod_coverage.t?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/t/02pod_coverage.t (original)
+++ trunk/libsys-filesystem-perl/t/02pod_coverage.t Fri Jul 16 21:22:29 2010
@@ -3,4 +3,9 @@
use Test::More;
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD Coverage" if $@;
-all_pod_coverage_ok({ also_private => [ qr/^[A-Z_]+$/ ], trustme => [qr/^new$/] }); #Ignore all caps
+all_pod_coverage_ok(
+ {
+ also_private => [qr/^[A-Z_]+$/],
+ trustme => [qr/^new$/]
+ }
+ ); #Ignore all caps
Modified: trunk/libsys-filesystem-perl/t/03test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/t/03test.t?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/t/03test.t (original)
+++ trunk/libsys-filesystem-perl/t/03test.t Fri Jul 16 21:22:29 2010
@@ -2,10 +2,8 @@
use Sys::Filesystem;
my $fs;
-eval {
- $fs = Sys::Filesystem->new();
-};
-plan( skip_all => "Cannot initialize Sys::Filesystem" ) if( $@ );
+eval { $fs = Sys::Filesystem->new(); };
+plan( skip_all => "Cannot initialize Sys::Filesystem" ) if ($@);
ok( ref($fs) eq 'Sys::Filesystem', 'Create new Sys::Filesystem object' );
my @mounted_filesystems = $fs->mounted_filesystems();
@@ -22,7 +20,7 @@
{
unless (@filesystems)
{
- skip('Badly poor supported OS or no file systems found.');
+ skip( 'Badly poor supported OS or no file systems found.', 0 );
}
else
{
@@ -47,7 +45,8 @@
ok( $format = $fs->format($filesystem), "Get format for $filesystem" );
ok( $volume = $fs->volume($filesystem) || 1, "Get volume type for $filesystem" );
ok( $label = $fs->label($filesystem) || 1, "Get label for $filesystem" );
- diag(join( ' - ', $filesystem, $mounted, $special, $device, $options, $format, $volume || '', $label || '') );
+ diag(join( ' - ', $filesystem, $mounted, $special, $device, $options, $format, $volume || '', $label || '' )
+ );
}
my $device = $fs->device( $filesystems[0] );
Modified: trunk/libsys-filesystem-perl/t/04whereami.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-filesystem-perl/t/04whereami.t?rev=60361&op=diff
==============================================================================
--- trunk/libsys-filesystem-perl/t/04whereami.t (original)
+++ trunk/libsys-filesystem-perl/t/04whereami.t Fri Jul 16 21:22:29 2010
@@ -4,7 +4,7 @@
use Config;
my $RealTest = abs_path(__FILE__);
-my $RealPerl = $Config{perlpath};
+my $RealPerl = abs_path( $Config{perlpath} );
if ( $^O ne 'VMS' )
{
$RealPerl .= $Config{_exe}
@@ -13,10 +13,8 @@
$RealTest = ucfirst($RealTest) if ( $^O =~ m/Win32/ );
my $sfs;
-eval {
- $sfs = Sys::Filesystem->new();
-};
-plan( skip_all => "Cannot initialize Sys::Filesystem" ) if( $@ );
+eval { $sfs = Sys::Filesystem->new(); };
+plan( skip_all => "Cannot initialize Sys::Filesystem" ) if ($@);
ok( ref($sfs) eq 'Sys::Filesystem', 'Create new Sys::Filesystem object' );
my ( $binmount, $mymount );
@@ -30,12 +28,12 @@
{
diag("Unexpected empty list of mounted filesystems");
}
- skip('Badly poor supported OS or no file systems found.');
+ skip( 'Badly poor supported OS or no file systems found.', 0 );
}
foreach my $fs (@mounted_filesystems)
{
- diag( "Checking '$fs' being mountpoint for '$RealPerl' or '$RealTest' ..." )
- if( $^O eq 'MSWin32' or $^O eq 'cygwin' );
+ diag("Checking '$fs' being mountpoint for '$RealPerl' or '$RealTest' ...")
+ if ( $^O eq 'MSWin32' or $^O eq 'cygwin' );
if ( !defined($binmount) && ( 0 == index( $RealPerl, $fs ) ) )
{
$binmount = $fs;
@@ -46,9 +44,11 @@
$mymount = $fs;
}
}
- TODO: {
- local $TODO = "Known fail for MSWin32, cygwin & Co. - let's make it not so important ...";
- ok( $mymount, sprintf( q{Found mountpoint for test file '%s' at '%s'}, $RealTest, $mymount || '<n/a>' ) );
- ok( $binmount, sprintf( q{Found mountpoint for perl executable '%s' at '%s'}, $RealPerl, $binmount || '<n/a>' ) );
+ TODO:
+ {
+ local $TODO = "Known fail for MSWin32, cygwin & Co. - let's make it not so important ...";
+ ok( $mymount, sprintf( q{Found mountpoint for test file '%s' at '%s'}, $RealTest, $mymount || '<n/a>' ) );
+ ok( $binmount,
+ sprintf( q{Found mountpoint for perl executable '%s' at '%s'}, $RealPerl, $binmount || '<n/a>' ) );
}
}
More information about the Pkg-perl-cvs-commits
mailing list