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