r63119 - in /branches/upstream/libwx-perl-processstream-perl/current: Changes META.yml lib/Wx/Perl/ProcessStream.pm

[angelabad-guest at users.alioth.debian.org]

Author: angelabad-guest
Date: Thu Sep 30 19:42:01 2010
New Revision: 63119

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63119
Log:
[svn-upgrade] new version libwx-perl-processstream-perl (0.28)

Modified:
    branches/upstream/libwx-perl-processstream-perl/current/Changes
    branches/upstream/libwx-perl-processstream-perl/current/META.yml
    branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm

Modified: branches/upstream/libwx-perl-processstream-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/Changes?rev=63119&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/Changes (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/Changes Thu Sep 30 19:42:01 2010
@@ -1,4 +1,8 @@
 Revision history for Wx-Perl-ProcessStream
+
+0.28    2010-09-17 00:00
+        Use function Wx::YieldIfNeeded so now no need for Wx
+        > 0.97
 
 0.27    2010-02-28 00:00
         Use param to Wx::Yield (Wx 0.9701+) to avoid recursive

Modified: branches/upstream/libwx-perl-processstream-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/META.yml?rev=63119&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/META.yml (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/META.yml Thu Sep 30 19:42:01 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Wx-Perl-ProcessStream
-version:            0.27
+version:            0.28
 abstract:           access IO of external processes via events
 author:
     - Mark Dootson <mdootson at cpan.org>

Modified: branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm?rev=63119&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm Thu Sep 30 19:42:01 2010
@@ -11,7 +11,7 @@
 
 package Wx::Perl::ProcessStream;
 
-our $VERSION = '0.27';
+our $VERSION = '0.28';
 
 =head1 NAME
 
@@ -19,7 +19,7 @@
 
 =head1 VERSION
 
-Version 0.27
+Version 0.28
 
 =head1 SYNOPSYS
 
@@ -469,7 +469,7 @@
 #-----------------------------------------------------
 
 our ($ID_CMD_EXIT, $ID_CMD_STDOUT, $ID_CMD_STDERR, $ID_CMD_MAXLINES,
-     $WXP_DEFAULT_CLOSE_ACTION, $WXP_DEFAULT_MAX_LINES, $WXPDEBUG, $WX_YIELD_EXTENDED);
+     $WXP_DEFAULT_CLOSE_ACTION, $WXP_DEFAULT_MAX_LINES, $WXPDEBUG);
 
 $ID_CMD_EXIT   = Wx::NewEventType();
 $ID_CMD_STDOUT = Wx::NewEventType();
@@ -511,17 +511,18 @@
 sub EVT_WXP_PROCESS_STREAM_MAXLINES ($$) { $_[0]->Connect(-1,-1,&wxpEVT_PROCESS_STREAM_MAXLINES,   $_[1] ) };
 
 sub Yield {
-    if(defined($WX_YIELD_EXTENDED)) {
-        ($WX_YIELD_EXTENDED) ? Wx::wxTheApp->Yield(1) : Wx::wxTheApp->Yield();
-    } else {
-        eval { Wx::TheApp->Yield(1); };
-        if($@) {
-            $WX_YIELD_EXTENDED = 0;
-            Wx::wxTheApp->Yield();
-        } else {
-            $WX_YIELD_EXTENDED = 1;
-        }
-    }
+    #if(defined($WX_YIELD_EXTENDED)) {
+    #    ($WX_YIELD_EXTENDED) ? Wx::wxTheApp->Yield(1) : Wx::wxTheApp->Yield();
+    #} else {
+    #    eval { Wx::TheApp->Yield(1); };
+    #    if($@) {
+    #        $WX_YIELD_EXTENDED = 0;
+    #        Wx::wxTheApp->Yield();
+    #    } else {
+    #        $WX_YIELD_EXTENDED = 1;
+    #    }
+    #}
+    Wx::YieldIfNeeded;
 }
 
 # Old interface - call Wx::Perl::ProcessStream::new