Add ARM files

[dh-make-perl] / dev / arm / libperl-critic-perl / libperl-critic-perl-1.088 / inc / Devel / AssertOS / Amiga.pm

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/Amiga.pm b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/Amiga.pm
new file mode 100644 (file)
index 0000000..27c7b3d
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/inc/Devel/AssertOS/Amiga.pm
@@ -0,0 +1,13 @@
+# $Id: Amiga.pm,v 1.1 2007/09/27 16:41:24 drhyde Exp $
+
+package Devel::AssertOS::Amiga;
+
+use Devel::CheckOS qw(die_unsupported);
+
+$VERSION = '1.0';
+
+sub os_is { $^O eq 'amigaos' ? 1 : 0; }
+
+die_unsupported() unless(os_is());
+
+1;
\ No newline at end of file