r1918 - in packages/libterm-readline-gnu-perl/trunk: . Gnu debian/patches

[Niko Tyni]

Author: ntyni-guest
Date: 2006-01-15 17:31:06 +0000 (Sun, 15 Jan 2006)
New Revision: 1918

Added:
   packages/libterm-readline-gnu-perl/trunk/debian/patches/00list
   packages/libterm-readline-gnu-perl/trunk/debian/patches/10term.dpatch
   packages/libterm-readline-gnu-perl/trunk/debian/patches/20new.dpatch
Modified:
   packages/libterm-readline-gnu-perl/trunk/Gnu.pm
   packages/libterm-readline-gnu-perl/trunk/Gnu/XS.pm
Log:
Convert old patches to dpatch.


Modified: packages/libterm-readline-gnu-perl/trunk/Gnu/XS.pm
===================================================================
--- packages/libterm-readline-gnu-perl/trunk/Gnu/XS.pm	2006-01-15 17:23:10 UTC (rev 1917)
+++ packages/libterm-readline-gnu-perl/trunk/Gnu/XS.pm	2006-01-15 17:31:06 UTC (rev 1918)
@@ -360,12 +360,11 @@
 use vars qw(%term_no_ue);
 %term_no_ue = ( kterm => 1 );
 
-
 sub ornaments {
     return $rl_term_set unless @_;
     $rl_term_set = shift;
     $rl_term_set ||= ',,,';
-    $rl_term_set = $term_no_ue{defined($ENV{TERM}) ? $ENV{TERM} : ''} ? 'us,me,,' : 'us,ue,,'
+    $rl_term_set = $term_no_ue{$ENV{TERM}} ? 'us,me,,' : 'us,ue,,'
 	if $rl_term_set eq '1';
     my @ts = split /,/, $rl_term_set, 4;
     my @rl_term_set

Modified: packages/libterm-readline-gnu-perl/trunk/Gnu.pm
===================================================================
--- packages/libterm-readline-gnu-perl/trunk/Gnu.pm	2006-01-15 17:23:10 UTC (rev 1917)
+++ packages/libterm-readline-gnu-perl/trunk/Gnu.pm	2006-01-15 17:31:06 UTC (rev 1918)
@@ -196,7 +196,7 @@
 
 sub ReadLine { 'Term::ReadLine::Gnu'; }
 
-=item C<new(NAME,[IN,OUT])>
+=item C<new(NAME,[IN[,OUT]])>
 
 returns the handle for subsequent calls to following functions.
 Argument is the name of the application.  Optionally can be followed
@@ -210,7 +210,6 @@
     my $this = shift;		# Package
     my $class = ref($this) || $this;
 
-	croak "Wrong number of arguments" unless @_==1 or @_==3;
     my $name = shift;
 
     my $self = \%Attribs;

Added: packages/libterm-readline-gnu-perl/trunk/debian/patches/00list
===================================================================
--- packages/libterm-readline-gnu-perl/trunk/debian/patches/00list	2006-01-15 17:23:10 UTC (rev 1917)
+++ packages/libterm-readline-gnu-perl/trunk/debian/patches/00list	2006-01-15 17:31:06 UTC (rev 1918)
@@ -0,0 +1,2 @@
+10term.dpatch
+20new.dpatch

Added: packages/libterm-readline-gnu-perl/trunk/debian/patches/10term.dpatch
===================================================================
--- packages/libterm-readline-gnu-perl/trunk/debian/patches/10term.dpatch	2006-01-15 17:23:10 UTC (rev 1917)
+++ packages/libterm-readline-gnu-perl/trunk/debian/patches/10term.dpatch	2006-01-15 17:31:06 UTC (rev 1918)
@@ -0,0 +1,25 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 10term.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Fix uninitialized value message 
+## DP: (#99843, patch by Nicolas Bertolissio)
+
+ at DPATCH@
+diff -urNad trunk~/Gnu/XS.pm trunk/Gnu/XS.pm
+--- trunk~/Gnu/XS.pm	2006-01-15 19:26:46.000000000 +0200
++++ trunk/Gnu/XS.pm	2006-01-15 19:26:58.333786909 +0200
+@@ -360,11 +360,12 @@
+ use vars qw(%term_no_ue);
+ %term_no_ue = ( kterm => 1 );
+ 
++
+ sub ornaments {
+     return $rl_term_set unless @_;
+     $rl_term_set = shift;
+     $rl_term_set ||= ',,,';
+-    $rl_term_set = $term_no_ue{$ENV{TERM}} ? 'us,me,,' : 'us,ue,,'
++    $rl_term_set = $term_no_ue{defined($ENV{TERM}) ? $ENV{TERM} : ''} ? 'us,me,,' : 'us,ue,,'
+ 	if $rl_term_set eq '1';
+     my @ts = split /,/, $rl_term_set, 4;
+     my @rl_term_set


Property changes on: packages/libterm-readline-gnu-perl/trunk/debian/patches/10term.dpatch
___________________________________________________________________
Name: svn:executable
   + *

Added: packages/libterm-readline-gnu-perl/trunk/debian/patches/20new.dpatch
===================================================================
--- packages/libterm-readline-gnu-perl/trunk/debian/patches/20new.dpatch	2006-01-15 17:23:10 UTC (rev 1917)
+++ packages/libterm-readline-gnu-perl/trunk/debian/patches/20new.dpatch	2006-01-15 17:31:06 UTC (rev 1918)
@@ -0,0 +1,28 @@
+#! /bin/sh /usr/share/dpatch/dpatch-run
+## 20new.dpatch by Niko Tyni <ntyni at iki.fi>
+##
+## All lines beginning with `## DP:' are a description of the patch.
+## DP: Fix new() argument checking and documentation.
+## DP: (#204362, patch by Nicolas Bertolissio)
+
+ at DPATCH@
+diff -urNad trunk~/Gnu.pm trunk/Gnu.pm
+--- trunk~/Gnu.pm	2006-01-15 19:28:43.000000000 +0200
++++ trunk/Gnu.pm	2006-01-15 19:28:53.729961929 +0200
+@@ -196,7 +196,7 @@
+ 
+ sub ReadLine { 'Term::ReadLine::Gnu'; }
+ 
+-=item C<new(NAME,[IN[,OUT]])>
++=item C<new(NAME,[IN,OUT])>
+ 
+ returns the handle for subsequent calls to following functions.
+ Argument is the name of the application.  Optionally can be followed
+@@ -210,6 +210,7 @@
+     my $this = shift;		# Package
+     my $class = ref($this) || $this;
+ 
++	croak "Wrong number of arguments" unless @_==1 or @_==3;
+     my $name = shift;
+ 
+     my $self = \%Attribs;


Property changes on: packages/libterm-readline-gnu-perl/trunk/debian/patches/20new.dpatch
___________________________________________________________________
Name: svn:executable
   + *