File reproducible.patch of Package perl-ExtUtils-XSpp

Overview Repositories Revisions Requests Users Attributes Meta

File reproducible.patch of Package perl-ExtUtils-XSpp (Revision 7e0a99ea4e8c3904c4792b38ed4decff)

Currently displaying revision 7e0a99ea4e8c3904c4792b38ed4decff , Show latest

Index: ExtUtils-XSpp-0.18/lib/ExtUtils/XSpp/Lexer.pm
===================================================================
--- ExtUtils-XSpp-0.18.orig/lib/ExtUtils/XSpp/Lexer.pm
+++ ExtUtils-XSpp-0.18/lib/ExtUtils/XSpp/Lexer.pm
@@ -129,7 +129,8 @@ sub read_more {
 }
 
 # for tests
-sub _random_digits { sprintf '%06d', rand 100000 }
+our $uniquecounter=0;
+sub _random_digits { ++$uniquecounter; }
 
 sub push_conditional {
   my $p = $_[0];
Index: ExtUtils-XSpp-0.18/lib/ExtUtils/XSpp/Driver.pm
===================================================================
--- ExtUtils-XSpp-0.18.orig/lib/ExtUtils/XSpp/Driver.pm
+++ ExtUtils-XSpp-0.18/lib/ExtUtils/XSpp/Driver.pm
@@ -34,7 +34,7 @@ sub generate {
         if (exists $generated->{'-'} and $generated->{'-'} ne '') {
             $generated->{'-'} = $typemap_code . $generated->{'-'};
         }
-        elsif (my @files = grep !/^-$/, keys %$generated) {
+        elsif (my @files = grep !/^-$/, sort keys %$generated) {
             $generated->{$files[0]} = $typemap_code . ($generated->{$files[0]}||'');
         }
         else {
Index: ExtUtils-XSpp-0.18/lib/ExtUtils/XSpp/Grammar.pm
===================================================================
--- ExtUtils-XSpp-0.18.orig/lib/ExtUtils/XSpp/Grammar.pm
+++ ExtUtils-XSpp-0.18/lib/ExtUtils/XSpp/Grammar.pm
@@ -173,7 +173,7 @@ sub YYCurval {
 sub YYExpect {
     my($self)=shift;
 
-    keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
+    sort keys %{$self->{STATES}[$self->{STACK}[-1][0]]{ACTIONS}}
 }
 
 sub YYLexer {

Places

File reproducible.patch of Package perl-ExtUtils-XSpp (Revision 7e0a99ea4e8c3904c4792b38ed4decff)

Places