try to fix a shutdown issue

perl-curses/perl-curses.patch

@@ -38,7 +38,7 @@ RCS file: /u/rse/wrk/cui/cvs/cui/lib/Curses/UI.pm,v
 retrieving revision 1.1.1.3
 diff -u -d -u -d -r1.1.1.3 UI.pm
 --- lib/Curses/UI.pm	29 Mar 2003 10:41:56 -0000	1.1.1.3
-+++ lib/Curses/UI.pm	14 Apr 2003 10:17:22 -0000
++++ lib/Curses/UI.pm	21 Apr 2003 08:57:23 -0000
 @@ -67,6 +67,8 @@
  	-debug         => undef, # Turn on debugging mode?
  	-language      => undef, # Which language to use?
@@ -48,18 +48,19 @@ diff -u -d -u -d -r1.1.1.3 UI.pm
  
          #user data
          -userdata       => undef,    #user internal data
-@@ -106,8 +108,10 @@
+@@ -106,8 +108,11 @@
  DESTROY 
  { 
      my $this = shift;
-+    $this->{-canvasscr}->delwin();
++    my $scr = $this->{-canvasscr};
++    $scr->delwin() if (defined($scr));
      endwin();
      $Curses::UI::rootobject = undef;
 +    $Curses::UI::initialized = 0;
  
      if ($this->{-clear_on_exit})
      {
-@@ -126,6 +130,8 @@
+@@ -126,6 +131,8 @@
  sub clear_on_exit(;$) { shift()->accessor('-clear_on_exit',   shift()) }
  sub cursor_mode(;$)   { shift()->accessor('-cursor_mode',     shift()) }
  sub lang(;$)          { shift()->accessor('-language_object', shift()) }
@@ -68,7 +69,7 @@ diff -u -d -u -d -r1.1.1.3 UI.pm
  
  # TODO: document
  sub debug(;$)         
-@@ -136,6 +142,61 @@
+@@ -136,6 +143,61 @@
  }
  
  # ----------------------------------------------------------------------
@@ -130,7 +131,7 @@ diff -u -d -u -d -r1.1.1.3 UI.pm
  # Window resizing support
  # ----------------------------------------------------------------------
  
-@@ -151,6 +212,23 @@
+@@ -151,6 +213,23 @@
      initscr();
      noecho();
      raw();

perl-curses/perl-curses.spec

@@ -40,8 +40,8 @@ Packager:     The OpenPKG Project
 Distribution: OpenPKG [BASE]
 Group:        Language
 License:      GPL/Artistic
-Version:      20030414
-Release:      20030414
+Version:      20030421
+Release:      20030421
 
 #   list of sources
 Source0:      http://www.cpan.org/modules/by-module/Curses/Curses-%{V_curses}.tar.gz