diff options
Diffstat (limited to 'textproc/p5-Text-Graphics/files/patch-Graphics.pm')
| -rw-r--r-- | textproc/p5-Text-Graphics/files/patch-Graphics.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/textproc/p5-Text-Graphics/files/patch-Graphics.pm b/textproc/p5-Text-Graphics/files/patch-Graphics.pm new file mode 100644 index 000000000000..8019acad80b8 --- /dev/null +++ b/textproc/p5-Text-Graphics/files/patch-Graphics.pm @@ -0,0 +1,30 @@ +--- lib/Text/Graphics.pm.orig Sat Dec 30 20:01:06 2000 ++++ lib/Text/Graphics.pm Sat Dec 30 20:02:21 2000 +@@ -49,8 +49,8 @@ + my $child = shift; + my $offx = shift; + my $offy = shift; +- $child->{offx} = ($offx > 0) ? $offx : 0; +- $child->{offy} = ($offy > 0) ? $offy : 0; ++ $child->{offx} = (defined($offx) && $offx > 0) ? $offx : 0; ++ $child->{offy} = (defined($offy) && $offy > 0) ? $offy : 0; + $child->{parent} = $this; + + push @{ $this->{children} }, $child; +@@ -78,7 +78,7 @@ + my $this = shift; + my $gc = shift; + +- if ($this->{bg} ne undef) { ++ if (defined $this->{bg}) { + $gc->fillRect($this->{bg}, 0, 0, $this->{width}, $this->{height}); + } + } +@@ -413,7 +413,7 @@ + ## we need to re-wrap iff the width changes + ## + +- if (($width ne undef) and ($this->{width} != $width)) { ++ if ((defined $width) and ($this->{width} != $width)) { + delete $this->{text_was_wrapped}; + } |