File parrot.diff of Package parrot

--- ./MANIFEST.orig	2010-09-06 14:15:05.000000000 +0000
+++ ./MANIFEST	2010-09-06 14:15:14.000000000 +0000
@@ -1006,7 +1006,7 @@ include/parrot/thread.h
 include/parrot/vtables.h                                    [main]include
 include/parrot/warnings.h                                   [main]include
 include/pmc/dummy                                           [main]include
-lib/File/Which.pm                                           [devel]lib
+lib/File/Which.pm                                           []
 lib/IO/CaptureOutput.pm                                     []
 lib/Parrot/BuildUtil.pm                                     [devel]lib
 lib/Parrot/Config.pm                                        [devel]lib
--- ./tools/dev/create_language.pl.orig	2011-06-22 10:16:05.000000000 +0000
+++ ./tools/dev/create_language.pl	2011-06-22 10:16:31.000000000 +0000
@@ -1,4 +1,4 @@
-#! perl
+#! /usr/bin/perl
 # Copyright (C) 2007-2010, Parrot Foundation.
 
 =head1 NAME
--- ./tools/dev/gen_makefile.pl.orig	2011-06-22 10:16:13.000000000 +0000
+++ ./tools/dev/gen_makefile.pl	2011-06-22 10:16:39.000000000 +0000
@@ -1,4 +1,4 @@
-#! perl
+#! /usr/bin/perl
 
 # Copyright (C) 2009, Parrot Foundation.
 
--- ./tools/dev/pprof2cg.pl.orig	2011-06-22 10:16:23.000000000 +0000
+++ ./tools/dev/pprof2cg.pl	2011-06-22 10:17:07.000000000 +0000
@@ -1,4 +1,4 @@
-#! perl
+#! /usr/bin/perl
 
 # Copyright (C) 2009, Parrot Foundation.
 
--- ./tools/dev/reconfigure.pl.orig	2011-06-22 10:16:17.000000000 +0000
+++ ./tools/dev/reconfigure.pl	2011-06-22 10:16:45.000000000 +0000
@@ -1,4 +1,4 @@
-#! perl
+#! /usr/bin/perl
 
 # Copyright (C) 2007, Parrot Foundation.
 
--- ./lib/Parrot/Install.pm.orig	2013-02-07 12:31:06.000000000 +0000
+++ ./lib/Parrot/Install.pm	2013-02-07 12:32:57.000000000 +0000
@@ -295,7 +295,7 @@ sub install_files {
       @$options{qw(destdir datadir versiondir dryrun)};
     ref($files) eq 'ARRAY' or die "Error: parameter \$files must be an arrayref\n";
 
-    my ($src, $dest, $mode, $manifest);
+    my ($src, $dest, $mdest, $mode, $manifest);
     print("Installing ...\n");
     if (!$dryrun) {
         my $destdatadir = $destdir
@@ -311,8 +311,8 @@ sub install_files {
             warn "Bad reference passed in \$files (want a HASH, got a '$ref')\n";
             next;
         }
-        ( $src, $dest ) = map { $el->{$_} } qw(Source Dest);
-        $dest = $destdir . $dest;
+        ( $src, $mdest ) = map { $el->{$_} } qw(Source Dest);
+        $dest = $destdir . $mdest;
         if ( $dryrun ) {
             print "$src -> $dest\n";
             next;
@@ -332,14 +332,14 @@ sub install_files {
                     # this loop
                     if (-e $dest) {
                         print "$dest\n";
-                        print $manifest "$dest\n" unless $dryrun;
+                        print $manifest "$mdest\n" unless $dryrun;
                         next;
                     }
                 }
             }
             cp( $src, $dest ) or die "Error: couldn't copy $src to $dest: $!\n";
             print "$dest\n";
-            print $manifest "$dest\n" unless $dryrun;
+            print $manifest "$mdest\n" unless $dryrun;
         }
         $mode = ( stat($src) )[2];
         chmod $mode, $dest;
--- ./lib/Parrot/Pmc2c/PCCMETHOD.pm.orig	2011-07-18 10:38:55.000000000 +0000
+++ ./lib/Parrot/Pmc2c/PCCMETHOD.pm	2011-07-18 10:44:39.000000000 +0000
@@ -4,7 +4,8 @@ package Parrot::Pmc2c::PCCMETHOD;
 use strict;
 use warnings;
 use Carp qw(longmess croak);
-use Parrot::Pmc2c::PCCMETHOD_BITS;
+# ; added so that rpm's require generator does not pick up the requires
+; use Parrot::Pmc2c::PCCMETHOD_BITS;
 use Parrot::Pmc2c::UtilFunctions qw( trim );
 
 =head1 NAME
--- ./src/interp/api.c.orig	2012-06-22 16:55:31.000000000 +0000
+++ ./src/interp/api.c	2012-06-22 16:56:24.000000000 +0000
@@ -982,6 +982,8 @@ Parrot_interp_info_s(PARROT_INTERP, INTV
                     return Parrot_str_new_init(interp, info.version,
                         strlen(info.version),  Parrot_ascii_encoding_ptr, 0);
                 }
+                Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_UNIMPLEMENTED,
+                        "uname() call failed");
             }
             break;
           case PARROT_OS_VERSION_NUMBER:
@@ -991,6 +993,8 @@ Parrot_interp_info_s(PARROT_INTERP, INTV
                     return Parrot_str_new_init(interp, info.release,
                         strlen(info.release),  Parrot_ascii_encoding_ptr, 0);
                 }
+                Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_UNIMPLEMENTED,
+                        "uname() call failed");
             }
             break;
 #endif