X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibwww-mechanize-perl%2Flibwww-mechanize-perl-1.34%2Fdebian%2Fpatches%2Fno_internet.patch;fp=dev%2Farm%2Flibwww-mechanize-perl%2Flibwww-mechanize-perl-1.34%2Fdebian%2Fpatches%2Fno_internet.patch;h=b6538143033a32e2b4b8cd3ce1e04d746a28492f;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

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
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);
+