hotfix: remove win32 dependency (#12)

* don't depend on Win32 modules
* stale Win32 code removed
(it didn't work anyway, so there is no point in packaging it in CPAN releases).

Changes

@@ -1,6 +1,10 @@
 Revision history for Ubic
 
 {{$NEXT}}
+        Hotfix release (https://github.com/berekuk/Ubic/issues/12):
+        * don't depend on Win32 modules
+        * stale Win32 code removed
+        (it didn't work anyway, so there is no point in packaging it in CPAN releases).
 
 1.25    2011-03-31
         * MacOSX support (and probably other POSIX systems too, including FreeBSD)

dist.ini

@@ -1,5 +1,5 @@
 name    = Ubic
-version = 1.25
+version = 1.26
 author  = Vyacheslav Matyukhin <mmcleric@yandex-team.ru>
 license = Perl_5
 copyright_holder = Yandex LLC
@@ -11,6 +11,7 @@ bundle = @Classic
 remove = PodVersion
 
 [AutoPrereqs]
+skip = ^Win
 
 [NextRelease]
 format = %-7v %{yyyy-MM-dd}d

lib/Ubic/Credentials/OS/Windows.pm

@@ -3,15 +3,19 @@ package Ubic::Credentials::OS::Windows;
 use strict;
 use warnings;
 
-use parent qw(Ubic::Credentials);
+# ABSTRACT: dummy credentials module
 
-BEGIN {
-    return if $^O ne 'MSWin32';
+=head1 DESCRIPTION
 
-    require Win32::pwent;
-    push @Win32::pwent::EXPORT_OK, 'endgrent';
-    Win32::pwent->import( qw( getpwent endpwent setpwent getpwnam getpwuid getgrent endgrent setgrent getgrnam getgrgid ) );
-}
+This module does nothing and always says that credentials are good.
+
+If you are interested in proper Win32 credentials support, look for the patch I<9581a96> in git repo.
+
+You might also want to contact CPAN user I<MITHALDU>, he provided that patch and was generally interested in Win32 port some time ago.
+
+=cut
+
+use parent qw(Ubic::Credentials);
 
 sub new {
     my $class = shift;
@@ -24,4 +28,3 @@ sub eq { 1 }
 sub set {}
 
 1;
-

lib/Ubic/Service.pm

@@ -15,14 +15,6 @@ use warnings;
 
 =cut
 
-BEGIN {
-    return if $^O ne 'MSWin32';
-
-    require Win32::pwent;
-    push @Win32::pwent::EXPORT_OK, 'endgrent';
-    Win32::pwent->import( qw( getpwent endpwent setpwent getpwnam getpwuid getgrent endgrent setgrent getgrnam getgrgid ) );
-}
-
 use Ubic::Result qw(result);
 
 =head1 DESCRIPTION