- updated

Changed files:
    perl-timer-test.patch -> 1.2
    perl-write-permissions.patch -> 1.2

diff --git a/perl-timer-test.patch b/perl-timer-test.patch
index 396d8f0606e3d580c56e0e5bd93409336e792409..95cd45ce780cf2cf2ff98862f183539a9c47e83b 100644 (file)
--- a/perl-timer-test.patch
+++ b/perl-timer-test.patch
@@ -1,20 +1,12 @@
 --- perl-5.8.8/ext/Time/HiRes/t/HiRes.t~       2005-12-17 20:20:26.000000000 +0100
 +++ perl-5.8.8/ext/Time/HiRes/t/HiRes.t        2007-02-11 00:06:42.000000000 +0100
-@@ -65,7 +65,7 @@
- 
- my $have_alarm = $Config{d_alarm};
- my $have_fork  = $Config{d_fork};
--my $waitfor = 60; # 10-20 seconds is normal (load affects this).
-+my $waitfor = 150; # 10-20 seconds is normal (load affects this).
- my $timer_pid;
- my $TheEnd;
- 
-@@ -109,7 +109,7 @@
+@@ -113,7 +113,7 @@
  # completes fine with (say) 30% slosh, and fail otherwise.  If you do that,
  # consider changing over to test.pl at the same time.
  # --A.D., Nov 27, 2001
--my $limit = 0.20; # 20% is acceptable slosh for testing timers
+-my $limit = 0.25; # 25% is acceptable slosh for testing timers
 +my $limit = 0.50; # 50% is acceptable slosh for testing timers
  
  sub skip {
      map { print "ok $_ # skipped\n" } @_;
+

diff --git a/perl-write-permissions.patch b/perl-write-permissions.patch
index e3f9878289d543d00ccc83f7e14e7d5eb81773d5..4004ba77f8cf9c1f2be721b22885064d9a921f18 100644 (file)
--- a/perl-write-permissions.patch
+++ b/perl-write-permissions.patch
@@ -1,20 +1,21 @@
 --- ExtUtils-MakeMaker-6.30.orig/lib/ExtUtils/Install.pm       2005-03-22 04:30:24.000000000 +0000
 +++ ExtUtils-MakeMaker-6.30.write-permissions/lib/ExtUtils/Install.pm  2006-10-30 16:14:28.000000000 +0000
-@@ -180,7 +180,7 @@
-               print "Installing $targetfile\n";
-               utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
-               print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;
--              $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
-+              $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
-               chmod $mode, $targetfile;
-               print "chmod($mode, $targetfile)\n" if $verbose>1;
-           } else {
-@@ -451,7 +451,7 @@
-       }
-       my($mode,$atime,$mtime) = (stat $from)[2,8,9];
-       utime($atime,$mtime+$Is_VMS,$to);
--      chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to);
-+      chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to);
-       next unless $from =~ /\.pm$/;
-       _autosplit($to,$autodir);
+@@ -666,7 +666,7 @@
+             utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
+ 
+ 
+-            $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
++            $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
+             $mode = $mode | 0222
+                 if $realtarget ne $targetfile;
+             _chmod( $mode, $targetfile, $verbose );
+@@ -1018,7 +1018,7 @@
+         }
+         my($mode,$atime,$mtime) = (stat $from)[2,8,9];
+         utime($atime,$mtime+$Is_VMS,$to);
+-        _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to);
++        _chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to);
+         next unless $from =~ /\.pm$/;
+         _autosplit($to,$autodir);
      }
+