[med-svn] r1027 - trunk/packages/perlprimer/trunk/debian/patches

[charles-guest at alioth.debian.org]

Author: charles-guest
Date: 2007-12-26 16:30:11 +0000 (Wed, 26 Dec 2007)
New Revision: 1027

Added:
   trunk/packages/perlprimer/trunk/debian/patches/10-perlprimer.diff
   trunk/packages/perlprimer/trunk/debian/patches/series
Log:
swiching to quilt

Added: trunk/packages/perlprimer/trunk/debian/patches/10-perlprimer.diff
===================================================================
--- trunk/packages/perlprimer/trunk/debian/patches/10-perlprimer.diff	                        (rev 0)
+++ trunk/packages/perlprimer/trunk/debian/patches/10-perlprimer.diff	2007-12-26 16:30:11 UTC (rev 1027)
@@ -0,0 +1,28 @@
+--- perlprimer/perlprimer.pl	2006-11-19 22:20:44.000000000 +0900
++++ perlprimer/perlprimer.pl.debian	2006-11-19 22:20:28.000000000 +0900
+@@ -18,7 +18,7 @@
+ # 
+ # You should have received a copy of the GNU General Public License
+ # along with this program; if not, write to the Free Software
+-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 
++# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
+ # USA
+ 
+ use strict;
+@@ -3840,7 +3840,15 @@
+ 		# search for the file in the program directory
+ 		@gcg_paths = glob("$program_directory"."gcg.*");
+ 	}
+-	
++	unless (@gcg_paths) {
++		# search for the file where it should be
++		@gcg_paths = glob("/usr/share/perlprimer/"."gcg.*");
++	}
++	unless (@gcg_paths) {
++		# search for the file in the current directory
++		@gcg_paths = glob("./"."gcg.*");
++	}
++
+ 	my $gcg_path;
+ 	foreach (@gcg_paths) {
+ 		if (/.*gcg\.\d*$/) {


Property changes on: trunk/packages/perlprimer/trunk/debian/patches/10-perlprimer.diff
___________________________________________________________________
Name: svn:executable
   + *

Added: trunk/packages/perlprimer/trunk/debian/patches/series
===================================================================
--- trunk/packages/perlprimer/trunk/debian/patches/series	                        (rev 0)
+++ trunk/packages/perlprimer/trunk/debian/patches/series	2007-12-26 16:30:11 UTC (rev 1027)
@@ -0,0 +1 @@
+10-perlprimer.diff