Add ARM files

[dh-make-perl] / dev / arm / libwww-mechanize-perl / libwww-mechanize-perl-1.34 / debian / patches / no_internet.patch

diff --git a/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/debian/patches/no_internet.patch b/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/debian/patches/no_internet.patch
new file mode 100644 (file)
index 0000000..b653814
--- /dev/null
+++ b/dev/arm/libwww-mechanize-perl/libwww-mechanize-perl-1.34/debian/patches/no_internet.patch
@@ -0,0 +1,31 @@
+Index: libwww-mechanize-perl/t/live/computers4sure.t
+===================================================================
+--- libwww-mechanize-perl.orig/t/live/computers4sure.t 2007-12-01 18:12:17.000000000 -0600
++++ libwww-mechanize-perl/t/live/computers4sure.t      2007-12-01 18:16:55.000000000 -0600
+@@ -3,6 +3,10 @@
+ use warnings;
+ use strict;
+ 
++if ($ENV{NOINTERNET} ) {
++   use Test::More skip_all => "We don't have internet here";
++}
++
+ use Test::More skip_all => 'Still need to get the error-handling on here working';
+ use Test::More tests => 9;
+ 
+Index: libwww-mechanize-perl/t/live/wikipedia.t
+===================================================================
+--- libwww-mechanize-perl.orig/t/live/wikipedia.t      2007-12-01 18:12:17.000000000 -0600
++++ libwww-mechanize-perl/t/live/wikipedia.t   2007-12-01 18:17:12.000000000 -0600
+@@ -3,6 +3,11 @@
+ use warnings;
+ use strict;
+ 
++if ($ENV{NOINTERNET} ) {
++   use Test::More skip_all => "We don't have internet here";
++}
++
++
+ use constant LANGUAGES => qw( en it ja es nl pl );
+ use Test::More tests => 3 + (2 * scalar LANGUAGES);
+