From 8362bf63dea22bbf6736609b0f49c152f975eb63 Mon Sep 17 00:00:00 2001
From: tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>
Date: Wed, 20 Jan 2010 01:29:50 +0000
Subject: Added old abandoned KDE3 version of koffice

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/koffice@1077364 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
---
 tools/scripts/gdb_output_to_text.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 tools/scripts/gdb_output_to_text.pl

(limited to 'tools/scripts/gdb_output_to_text.pl')

diff --git a/tools/scripts/gdb_output_to_text.pl b/tools/scripts/gdb_output_to_text.pl
new file mode 100755
index 000000000..8a85833aa
--- /dev/null
+++ b/tools/scripts/gdb_output_to_text.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+while (<>) {
+  if ( m/.* = [-\d]+ '(.+)'/ ) {
+    my $a = $1;
+    eval( "\$a=\"$a\"" );
+    print $a;
+  } elsif ( m/.* = -1/ ) {
+    print "\n";
+  }
+}
-- 
cgit v1.2.3