File PDL-2.4.11-hashcmp.diff of Package perl-PDL

--- t/hdrs.t.orig	2013-07-15 18:00:29.000000000 +0000
+++ t/hdrs.t	2013-07-15 18:00:52.000000000 +0000
@@ -16,7 +16,7 @@ sub hdrcmp {
   my ($ah,$bh) = map {$_->gethdr} @_;
 # Copy-by-reference test is obsolete; check contents instead (CED 12-Apr-2003)
 #   return $ah==$bh
-  return join("",%{$ah}) eq join("",%{$bh});
+  return join("",sort(%{$ah})) eq join("",sort(%{$bh}));
 }
 
 print "1..9\n";
--- t/niceslice.t.orig	2013-07-15 18:00:33.000000000 +0000
+++ t/niceslice.t	2013-07-15 18:01:16.000000000 +0000
@@ -208,7 +208,7 @@ eval translate_and_show '$b = $a(1:2,pdl
 # Old hdrcpy test (for copy-by-reference); this is obsolete
 # with quasi-deep copying.  --CED 11-Apr-2003
 #   ok (!$@ and $b->gethdr() == $h);
-ok(!$@ and join("",%{$b->gethdr}) eq join("",%{$h}));
+ok(!$@ and join("",sort(%{$b->gethdr})) eq join("",sort(%{$h})));
 
 $a = ones(10);
 my $i = which $a < 0;