r3306 - in /packages/libsub-install-perl/branches/upstream/current: Changes META.yml lib/Sub/Install.pm t/install.t t/reinstall.t

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Fri Jul 21 12:11:51 2006
New Revision: 3306

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3306
Log:
Load /tmp/tmp.PakqW16589/libsub-install-perl-0.921 into
packages/libsub-install-perl/branches/upstream/current.

Modified:
    packages/libsub-install-perl/branches/upstream/current/Changes
    packages/libsub-install-perl/branches/upstream/current/META.yml
    packages/libsub-install-perl/branches/upstream/current/lib/Sub/Install.pm
    packages/libsub-install-perl/branches/upstream/current/t/install.t
    packages/libsub-install-perl/branches/upstream/current/t/reinstall.t

Modified: packages/libsub-install-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-install-perl/branches/upstream/current/Changes?rev=3306&op=diff
==============================================================================
--- packages/libsub-install-perl/branches/upstream/current/Changes (original)
+++ packages/libsub-install-perl/branches/upstream/current/Changes Fri Jul 21 12:11:51 2006
@@ -1,4 +1,8 @@
 Revision history for Sub-Install
+
+0.921   2006-07-16
+        fix filename-matching in output tests for win32 (20484, thanks Alex
+        Chorny!)
 
 0.92    2006-05-11
         allow other users to build exporters like our tiny one (&exporter)

Modified: packages/libsub-install-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-install-perl/branches/upstream/current/META.yml?rev=3306&op=diff
==============================================================================
--- packages/libsub-install-perl/branches/upstream/current/META.yml (original)
+++ packages/libsub-install-perl/branches/upstream/current/META.yml Fri Jul 21 12:11:51 2006
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Sub-Install
-version:      0.92
+version:      0.921
 version_from: lib/Sub/Install.pm
 installdirs:  site
 requires:

Modified: packages/libsub-install-perl/branches/upstream/current/lib/Sub/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-install-perl/branches/upstream/current/lib/Sub/Install.pm?rev=3306&op=diff
==============================================================================
--- packages/libsub-install-perl/branches/upstream/current/lib/Sub/Install.pm (original)
+++ packages/libsub-install-perl/branches/upstream/current/lib/Sub/Install.pm Fri Jul 21 12:11:51 2006
@@ -12,13 +12,13 @@
 
 =head1 VERSION
 
-version 0.92
+version 0.921
 
  $Id: /my/rjbs/subinst/trunk/lib/Sub/Install.pm 16622 2005-11-23T00:17:55.304991Z rjbs  $
 
 =cut
 
-our $VERSION = '0.92';
+our $VERSION = '0.921';
 
 =head1 SYNOPSIS
 

Modified: packages/libsub-install-perl/branches/upstream/current/t/install.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-install-perl/branches/upstream/current/t/install.t?rev=3306&op=diff
==============================================================================
--- packages/libsub-install-perl/branches/upstream/current/t/install.t (original)
+++ packages/libsub-install-perl/branches/upstream/current/t/install.t Fri Jul 21 12:11:51 2006
@@ -27,9 +27,15 @@
 Prototype mismatch: sub main::tmp_ok ($;$) vs ($$;$) at t/install.t line 31
 END_WARNING
 
-    stderr_is(
-      sub { Sub::Install::install_sub({ code => \&is, as => 'tmp_ok' }) },
+    my $stderr = Test::Output::stderr_from(
+      sub { Sub::Install::install_sub({ code => \&is, as => 'tmp_ok' }) }
+    );
+
+    $stderr =~ s!\\!/!g;
+    is(
+      $stderr,
       $expected_warning,
+      "got expected warning",
     );
   }
 }

Modified: packages/libsub-install-perl/branches/upstream/current/t/reinstall.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libsub-install-perl/branches/upstream/current/t/reinstall.t?rev=3306&op=diff
==============================================================================
--- packages/libsub-install-perl/branches/upstream/current/t/reinstall.t (original)
+++ packages/libsub-install-perl/branches/upstream/current/t/reinstall.t Fri Jul 21 12:11:51 2006
@@ -28,10 +28,15 @@
 Prototype mismatch: sub main::tmp_ok ($;$) vs ($$;$) at t/reinstall.t line 32
 END_WARNING
 
-    stderr_is(
-      sub { Sub::Install::reinstall_sub({ code => \&is, as => 'tmp_ok' }) },
+    my $stderr = Test::Output::stderr_from(
+      sub { Sub::Install::reinstall_sub({ code => \&is, as => 'tmp_ok' }) }
+    );
+
+    $stderr =~ s!\\!/!g;
+    is(
+      $stderr,
       $expected_warning,
-      "correct warnings went out STDERR",
+      "got expected warning",
     );
   }
 }