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

1 files changed, 10 insertions, 0 deletions

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";
+  }
+}