File rxvt-unicode-9.06-bad_interp_pl.patch of Package rxvt-unicode

diff -uNr rxvt-unicode-9.06/src/perl/block-graphics-to-ascii rxvt-unicode-9.06p/src/perl/block-graphics-to-ascii
--- rxvt-unicode-9.06/src/perl/block-graphics-to-ascii	2006-01-09 23:51:14.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/block-graphics-to-ascii	2009-07-03 06:50:03.890092384 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # simple example that uses the add_lines hook to filter unicode and vt100 line/box graphics
 
diff -uNr rxvt-unicode-9.06/src/perl/digital-clock rxvt-unicode-9.06p/src/perl/digital-clock
--- rxvt-unicode-9.06/src/perl/digital-clock	2006-01-23 18:13:03.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/digital-clock	2009-07-03 06:50:03.894118664 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # this creates a simple digital clock
 
diff -uNr rxvt-unicode-9.06/src/perl/example-refresh-hooks rxvt-unicode-9.06p/src/perl/example-refresh-hooks
--- rxvt-unicode-9.06/src/perl/example-refresh-hooks	2006-01-18 06:05:09.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/example-refresh-hooks	2009-07-03 06:50:03.894118664 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # this creates a simple digital clock by overwriting the refresh hooks
 
diff -uNr rxvt-unicode-9.06/src/perl/kuake rxvt-unicode-9.06p/src/perl/kuake
--- rxvt-unicode-9.06/src/perl/kuake	2006-07-06 18:48:11.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/kuake	2009-07-03 06:50:03.898113655 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub on_start {
    my ($self) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/macosx-clipboard rxvt-unicode-9.06p/src/perl/macosx-clipboard
--- rxvt-unicode-9.06/src/perl/macosx-clipboard	2007-11-12 09:41:42.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/macosx-clipboard	2009-07-03 06:50:03.902092792 -0500
@@ -1,4 +1,4 @@
-#! perl -w
+#!/usr/bin/perl -w
 
 # http://triplefusion.net/system/macosx-clipboard
 
diff -uNr rxvt-unicode-9.06/src/perl/matcher rxvt-unicode-9.06p/src/perl/matcher
--- rxvt-unicode-9.06/src/perl/matcher	2007-06-10 18:42:36.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/matcher	2009-07-03 06:50:03.906115300 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # Author: Tim Pope <rxvt-unicodeNOSPAM@tpope.info>
 
diff -uNr rxvt-unicode-9.06/src/perl/option-popup rxvt-unicode-9.06p/src/perl/option-popup
--- rxvt-unicode-9.06/src/perl/option-popup	2006-10-03 07:13:57.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/option-popup	2009-07-03 06:50:03.906115300 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub on_start {
    my ($self) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/overlay-osc rxvt-unicode-9.06p/src/perl/overlay-osc
--- rxvt-unicode-9.06/src/perl/overlay-osc	2008-11-05 08:52:59.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/overlay-osc	2009-07-03 06:50:03.910092272 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # allows programs to open popups
 # printf "\033]777;overlay;action;args\007"
diff -uNr rxvt-unicode-9.06/src/perl/readline rxvt-unicode-9.06p/src/perl/readline
--- rxvt-unicode-9.06/src/perl/readline	2006-02-20 15:48:11.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/readline	2009-07-03 06:50:03.914092920 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 use POSIX ();
 
diff -uNr rxvt-unicode-9.06/src/perl/remote-clipboard rxvt-unicode-9.06p/src/perl/remote-clipboard
--- rxvt-unicode-9.06/src/perl/remote-clipboard	2007-11-10 23:08:00.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/remote-clipboard	2009-07-03 06:50:03.918094826 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 use Fcntl ();
 
diff -uNr rxvt-unicode-9.06/src/perl/searchable-scrollback rxvt-unicode-9.06p/src/perl/searchable-scrollback
--- rxvt-unicode-9.06/src/perl/searchable-scrollback	2007-11-10 23:08:00.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/searchable-scrollback	2009-07-03 06:50:03.922095963 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # this extension implements scrollback buffer search
 
diff -uNr rxvt-unicode-9.06/src/perl/selection rxvt-unicode-9.06p/src/perl/selection
--- rxvt-unicode-9.06/src/perl/selection	2008-01-10 22:44:31.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/selection	2009-07-03 06:50:03.926094027 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub on_user_command {
    my ($self, $cmd) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/selection-autotransform rxvt-unicode-9.06p/src/perl/selection-autotransform
--- rxvt-unicode-9.06/src/perl/selection-autotransform	2006-02-06 01:14:08.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/selection-autotransform	2009-07-03 06:50:03.926094027 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub msg {
    my ($self, $msg) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/selection-pastebin rxvt-unicode-9.06p/src/perl/selection-pastebin
--- rxvt-unicode-9.06/src/perl/selection-pastebin	2006-03-10 16:36:16.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/selection-pastebin	2009-07-03 06:50:03.930092021 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub upload_paste {
    my ($self) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/selection-popup rxvt-unicode-9.06p/src/perl/selection-popup
--- rxvt-unicode-9.06/src/perl/selection-popup	2007-10-31 13:15:42.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/selection-popup	2009-07-03 06:50:03.930092021 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub msg {
    my ($self, $msg) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/tabbed rxvt-unicode-9.06p/src/perl/tabbed
--- rxvt-unicode-9.06/src/perl/tabbed	2008-06-15 09:52:47.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/tabbed	2009-07-03 06:50:03.934111037 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 sub refresh {
    my ($self) = @_;
diff -uNr rxvt-unicode-9.06/src/perl/urxvt-popup rxvt-unicode-9.06p/src/perl/urxvt-popup
--- rxvt-unicode-9.06/src/perl/urxvt-popup	2007-12-24 03:21:40.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/urxvt-popup	2009-07-03 06:50:03.938091850 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 # this extension implements popup-menu functionality for urxvt. it works
 # together with the urxvt::popup class.
diff -uNr rxvt-unicode-9.06/src/perl/xim-onthespot rxvt-unicode-9.06p/src/perl/xim-onthespot
--- rxvt-unicode-9.06/src/perl/xim-onthespot	2007-06-02 00:07:12.000000000 -0500
+++ rxvt-unicode-9.06p/src/perl/xim-onthespot	2009-07-03 06:50:03.938091850 -0500
@@ -1,4 +1,4 @@
-#! perl
+#!/usr/bin/perl
 
 #
 # problems with this implementation include