4 files changed, 84 insertions, 0 deletions
diff --git a/sysutils/p5-Mac-AppleScript-Glue/patches/patch-aa b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-aa
new file mode 100644
index 00000000000..a201be48aac
--- /dev/null
+++ b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-aa
@@ -0,0 +1,15 @@
+$NetBSD: patch-aa,v 1.1.1.1 2010/02/18 02:56:35 seb Exp $
+
+Use prefered form, warning free with current Perl, for require's argument.
+
+--- Glue.pm.orig	2002-09-15 07:48:11.000000000 +0200
++++ Glue.pm
+@@ -231,7 +231,7 @@ statements that work even though they lo
+ use strict;
+ use warnings;
+ 
+-require 5.6.0;
++require 5.006_000;
+ 
+ ######################################################################
+ 
diff --git a/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ab b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ab
new file mode 100644
index 00000000000..3dc04a25de7
--- /dev/null
+++ b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ab
@@ -0,0 +1,15 @@
+$NetBSD: patch-ab,v 1.1.1.1 2010/02/18 02:56:35 seb Exp $
+
+Prevent division by 0 for disks with no free space.
+
+--- t/finder.t.orig	2002-09-12 16:24:21.000000000 +0200
++++ t/finder.t
+@@ -36,7 +36,7 @@ ok($disks)
+ 
+ for my $disk (ref($disks) eq 'ARRAY' ? @{$disks} : $disks) {
+     my $name = $disk->name;
+-    my $free = int($disk->free_space / 1024 / 1024);
++    my $free = ($disk->free_space ? int($disk->free_space / 1024 / 1024) : 0);
+ 
+     print "disk \"$name\" has ${free} mb free\n";
+ }
diff --git a/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ac b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ac
new file mode 100644
index 00000000000..987080dbed2
--- /dev/null
+++ b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ac
@@ -0,0 +1,32 @@
+$NetBSD: patch-ac,v 1.1.1.1 2010/02/18 02:56:35 seb Exp $
+
+Modernize POP tests.
+
+--- t/pod.t.orig	2002-09-08 05:18:03.000000000 +0200
++++ t/pod.t
+@@ -7,21 +7,7 @@
+ 
+ use strict;
+ 
+-my %pods;
+-
+-BEGIN {
+-    use Pod::Find qw(pod_find);
+-
+-    %pods = pod_find(
+-        { 
+-            -verbose => 1, 
+-        },
+-        'blib'
+-    );
+-}
+-
+-use Test::Pod tests => scalar keys %pods;
+-
+-for my $pod (keys %pods) {
+-    pod_ok($pod);
+-}
++use Test::More;
++eval "use Test::Pod 1.00";
++plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
++all_pod_files_ok();
diff --git a/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ad b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ad
new file mode 100644
index 00000000000..e1f7f8b7d22
--- /dev/null
+++ b/sysutils/p5-Mac-AppleScript-Glue/patches/patch-ad
@@ -0,0 +1,22 @@
+$NetBSD: patch-ad,v 1.1.1.1 2010/02/18 02:56:35 seb Exp $
+
+Modern Quicktime Player can open a PNG file, so try to open
+a movie file instead.
+
+--- t/quicktime.t.orig	2002-09-12 16:25:40.000000000 +0200
++++ t/quicktime.t
+@@ -28,9 +28,12 @@ ok(defined $quicktime)
+     or die "can't initialize application object (Quicktime)\n";
+ 
+ ######################################################################
+-
++my $path =
++'/System/Library/PreferencePanes/Mouse.prefPane/Contents/Resources/touchMovie.mov';
++$path = '/System/Library/CoreServices/Dock.app/Contents/Resources/finder.png'
++if ( ! -f $path );
+ my $file = $quicktime->objref(
+-    posix_file => "/System/Library/CoreServices/Dock.app/Contents/Resources/finder.png",
++    posix_file => $path,
+ );
+ 
+ ok(defined $file)