summaryrefslogtreecommitdiff
path: root/devel/p5-Term-Screen/files/patch-Screen.pm
diff options
context:
space:
mode:
Diffstat (limited to 'devel/p5-Term-Screen/files/patch-Screen.pm')
-rw-r--r--devel/p5-Term-Screen/files/patch-Screen.pm24
1 files changed, 21 insertions, 3 deletions
diff --git a/devel/p5-Term-Screen/files/patch-Screen.pm b/devel/p5-Term-Screen/files/patch-Screen.pm
index d2293862a6bf..dd5cebbe5033 100644
--- a/devel/p5-Term-Screen/files/patch-Screen.pm
+++ b/devel/p5-Term-Screen/files/patch-Screen.pm
@@ -1,6 +1,6 @@
---- Screen.pm.orig Tue Jan 9 13:10:07 2001
-+++ Screen.pm Tue Jan 9 13:11:37 2001
-@@ -5,7 +5,7 @@
+--- Screen.pm.orig Tue Oct 30 16:47:00 2001
++++ Screen.pm Thu Jan 17 19:25:32 2002
+@@ -8,7 +8,7 @@
=head1 NAME
@@ -9,3 +9,21 @@
=head1 SYNOPSIS
+@@ -419,7 +419,7 @@
+ }
+ else # buffer up the received chars
+ {
+- $this->{IN} = reverse($partial_fn_str) . $this->{IN};
++ $this->{IN} = &reverse($partial_fn_str) . $this->{IN};
+ $c = chop($this->{IN});
+ $this->puts($c) if ($this->{ECHO} && ($c ne "\e"));
+ }
+@@ -454,7 +454,7 @@
+ sub stuff_input
+ {
+ my ($this, $str) = @_;
+- $this->{IN} = reverse($str) . $this->{IN};
++ $this->{IN} = &reverse($str) . $this->{IN};
+ $this;
+ }
+