r13999 - in /branches/upstream/libdevel-gdb-perl/current: Changes META.yml lib/Devel/GDB.pm t/expect.t

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

Author: gregoa-guest
Date: Sat Feb  2 18:04:18 2008
New Revision: 13999

URL: http://svn.debian.org/wsvn/?sc=1&rev=13999
Log:
[svn-upgrade] Integrating new upstream version, libdevel-gdb-perl (2.02)

Modified:
    branches/upstream/libdevel-gdb-perl/current/Changes
    branches/upstream/libdevel-gdb-perl/current/META.yml
    branches/upstream/libdevel-gdb-perl/current/lib/Devel/GDB.pm
    branches/upstream/libdevel-gdb-perl/current/t/expect.t

Modified: branches/upstream/libdevel-gdb-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libdevel-gdb-perl/current/Changes?rev=13999&op=diff
==============================================================================
--- branches/upstream/libdevel-gdb-perl/current/Changes (original)
+++ branches/upstream/libdevel-gdb-perl/current/Changes Sat Feb  2 18:04:18 2008
@@ -36,3 +36,7 @@
 
 2.01  Sun Jan 20 13:32   2008 Geert De Peuter <varia at depeuter.org>
 	- bug fix in _unescape function
+
+2.02 Mon Jan 28 16:22:38 2008 Josef Ezra <jezra at cpan.org>
+        - fixed t/expect.t example after it failed on darwin 8.10.1
+

Modified: branches/upstream/libdevel-gdb-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdevel-gdb-perl/current/META.yml?rev=13999&op=diff
==============================================================================
--- branches/upstream/libdevel-gdb-perl/current/META.yml (original)
+++ branches/upstream/libdevel-gdb-perl/current/META.yml Sat Feb  2 18:04:18 2008
@@ -1,13 +1,16 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Devel-GDB
-version:      2.01
-version_from: lib/Devel/GDB.pm
-installdirs:  site
-requires:
+--- #YAML:1.0
+name:                Devel-GDB
+version:             2.02
+abstract:            Open and communicate a gdb session
+license:             ~
+generated_by:        ExtUtils::MakeMaker version 6.31
+distribution_type:   module
+requires:     
     Test::More:                    0
     Thread::Semaphore:             0
     threads::shared:               0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30_01
+meta-spec:
+    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
+    version: 1.2
+author:
+    - Antal Novak <afn at cpan.org>, Josef Ezra <jezra at cpan.org>

Modified: branches/upstream/libdevel-gdb-perl/current/lib/Devel/GDB.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdevel-gdb-perl/current/lib/Devel/GDB.pm?rev=13999&op=diff
==============================================================================
--- branches/upstream/libdevel-gdb-perl/current/lib/Devel/GDB.pm (original)
+++ branches/upstream/libdevel-gdb-perl/current/lib/Devel/GDB.pm Sat Feb  2 18:04:18 2008
@@ -56,7 +56,7 @@
 
 =cut
 
-our $VERSION = '2.01';
+our $VERSION = '2.02';
 our $DEBUG;
 our $DEPRECATED;
 

Modified: branches/upstream/libdevel-gdb-perl/current/t/expect.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdevel-gdb-perl/current/t/expect.t?rev=13999&op=diff
==============================================================================
--- branches/upstream/libdevel-gdb-perl/current/t/expect.t (original)
+++ branches/upstream/libdevel-gdb-perl/current/t/expect.t Sat Feb  2 18:04:18 2008
@@ -2,9 +2,6 @@
 
 qx/gdb -v/ or
   plan skip_all => "cannot execute 'gdb', please use -execfile => '/full/path/to/gdb' ";
-
-qx/tr --version/ or
-  plan skip_all => "cannot execute 'tr'";
 
 eval "use Expect; 1" or
   plan skip_all => "cannot use 'Expect'" ;
@@ -19,17 +16,18 @@
 my $e = $gdb->get_expect_obj;
 ok($e);
 
-ok($gdb->send_cmd("file tr"));
-ok($gdb->send_cmd("set args a-zA-Z A-Za-z"));
+ok($gdb->send_cmd("file $^X"));
+ok($gdb->send_cmd("set args -p -e '\$_ = uc'"));
 ok($gdb->send_cmd("-exec-run"));
 
-$e->send("one TWO\n");
-$e->send("ONE two\n");
+$e->send("foo\n");
 
 ok($e->expect(undef, '-re', '^.+$')
-    and $e->match =~ /^ONE two/);
+    and $e->match =~ /^FOO/);
+
+$e->send("bar\n");
 
 ok($e->expect(undef, '-re', '^.+$')
-    and $e->match =~ /^one TWO/);
+    and $e->match =~ /^BAR/);
 
 $gdb->end;