Em 18-04-2013 13:07, David Cantrell escreveu:
I would have written Siebel::AssertOS thus:
package Devel::AssertOS::OSFeatures::SupportsSiebel;
use Devel::CheckOS;
sub matches { return qw(Linux AIX Solaris HPUX MSWin32); }
sub os_is { Devel::CheckOS::os_is(matches()); }
Devel::CheckOS::die_unsupported() unless(os_is());
sub expn { "The operating system can run Siebel CRM" }
Hello there David,
Thank you for the input! Of course it would be a more elegant solution
to reuse Devel::CheckOS, in fact that's was my first option.
Unfortunately I got an issue after some tests with Devel::CheckOS. You
can check more details here:
https://rt.cpan.org/Public/Bug/Display.html?id=83918
Of course, this may not the best place to discuss Devel::CheckOS but you
can contact me directly, if you like it, to check this out.
I, also, must be honest: I was quite lazy to open the bug ticket at RT
instead of Github since I was quite in a hurry to create an account on
it. Sorry about that.
Regards,
Alceu
