r13541 - in /trunk/libdevel-gdb-perl: Changes META.yml debian/changelog lib/Devel/GDB.pm

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Fri Jan 25 16:38:48 UTC 2008


Author: gregoa-guest
Date: Fri Jan 25 16:38:48 2008
New Revision: 13541

URL: http://svn.debian.org/wsvn/?sc=1&rev=13541
Log:
New upstream release.

Modified:
    trunk/libdevel-gdb-perl/Changes
    trunk/libdevel-gdb-perl/META.yml
    trunk/libdevel-gdb-perl/debian/changelog
    trunk/libdevel-gdb-perl/lib/Devel/GDB.pm

Modified: trunk/libdevel-gdb-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libdevel-gdb-perl/Changes?rev=13541&op=diff
==============================================================================
--- trunk/libdevel-gdb-perl/Changes (original)
+++ trunk/libdevel-gdb-perl/Changes Fri Jan 25 16:38:48 2008
@@ -23,7 +23,7 @@
 1.23  Fri Oct 22 14:00    2004 jezra <jezra at cpan.org>
         - fixed regular expression to support gdb's "> " prompt
 
-2.0  Tue Feb 20 14:59     2007 Antal Novak <afn at cpan.org>
+2.0   Tue Feb 20 14:59     2007 Antal Novak <afn at cpan.org>
         - This is (almost) a complete rewrite of the codebase, so many things
           have changed.
         - New features:
@@ -33,3 +33,6 @@
             - Added support for threads.
         - Deprecated the old get() syntax; callers wishing to use this
           must explicitly set $Devel::GDB::DEPRECATED = 1.
+
+2.01  Sun Jan 20 13:32   2008 Geert De Peuter <varia at depeuter.org>
+	- bug fix in _unescape function

Modified: trunk/libdevel-gdb-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libdevel-gdb-perl/META.yml?rev=13541&op=diff
==============================================================================
--- trunk/libdevel-gdb-perl/META.yml (original)
+++ trunk/libdevel-gdb-perl/META.yml Fri Jan 25 16:38:48 2008
@@ -1,16 +1,13 @@
---- #YAML:1.0
-name:                Devel-GDB
-version:             2.0
-abstract:            Open and communicate a gdb session
-license:             ~
-generated_by:        ExtUtils::MakeMaker version 6.31
-distribution_type:   module
-requires:     
+# 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:
     Test::More:                    0
     Thread::Semaphore:             0
     threads::shared:               0
-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>
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30_01

Modified: trunk/libdevel-gdb-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libdevel-gdb-perl/debian/changelog?rev=13541&op=diff
==============================================================================
--- trunk/libdevel-gdb-perl/debian/changelog (original)
+++ trunk/libdevel-gdb-perl/debian/changelog Fri Jan 25 16:38:48 2008
@@ -1,4 +1,4 @@
-libdevel-gdb-perl (2.0-2) UNRELEASED; urgency=low
+libdevel-gdb-perl (2.01-1) UNRELEASED; urgency=low
 
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza). Removed:
@@ -17,8 +17,9 @@
     - remove call to dh_link
   * debian/watch: use dist-based URL.
   * debian/copyright: remove reference to LICENSE file.
+  * New upstream release.
 
- -- gregor herrmann <gregor+debian at comodo.priv.at>  Fri, 25 Jan 2008 17:35:39 +0100
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Fri, 25 Jan 2008 17:38:16 +0100
 
 libdevel-gdb-perl (2.0-1) unstable; urgency=low
 

Modified: trunk/libdevel-gdb-perl/lib/Devel/GDB.pm
URL: http://svn.debian.org/wsvn/trunk/libdevel-gdb-perl/lib/Devel/GDB.pm?rev=13541&op=diff
==============================================================================
--- trunk/libdevel-gdb-perl/lib/Devel/GDB.pm (original)
+++ trunk/libdevel-gdb-perl/lib/Devel/GDB.pm Fri Jan 25 16:38:48 2008
@@ -56,7 +56,7 @@
 
 =cut
 
-our $VERSION = '2.0';
+our $VERSION = '2.01';
 our $DEBUG;
 our $DEPRECATED;
 
@@ -583,33 +583,30 @@
     return $qstring;
 }
 
-my %unesc =
-(
-  a => "\a",
-  b => "\b",
-  t => "\t",
-  n => "\n",
-  f => "\f",
-  r => "\r",
-  e => "\e",
-  v => "\013",
-);
+my %unesc = (  "\\" => "\\",
+               "\"" => "\"",
+               "a"  => "\a",
+               "b"  => "\b",
+               "t"  => "\t",
+               "n"  => "\n",
+               "f"  => "\f",
+               "r"  => "\r",
+               "e"  => "\e",
+               "v"  => "\013",
+            );
 
 sub _unescape
 {
-    # Looks like we have to do this one ourselves
-    my ($string) = @_;
-
-    # Unescape any \X for various characters X
-    $string =~ s/\\([abtnfre])/$unesc{$1}/esg;
-
-    # Unescape \OCTAL for various octal values
-    $string =~ s/\\(0[0-7]+)/chr(oct($1))/esg;
-
-    # Finally, unescape \" and \\
-    $string =~ s/\\([\\\"])/$1/sg;
-
-    return $string;
+   # Looks like we have to do this one ourselves
+   my ($string) = @_;
+
+   # Unescape any \X for various characters X (including \\ and \")
+   $string =~ s/\\([\\\"abtnfrev])/$unesc{$1} || "\\$1"/esg;
+
+   # Unescape \OCTAL for various octal values
+   $string =~ s/\\(0[0-7]+)/chr(oct($1))/esg;
+
+   return $string;
 }
 
 sub _generate_token




More information about the Pkg-perl-cvs-commits mailing list