perlデバッグプロンプトくるくるパッチ

myperl5db.patch

--- myperl5db.pl	2011-12-11 23:26:51.000000000 +0900
+++ perl5/perlbrew/perls/perl-5.14.2/lib/5.14.2/perl5db.pl	2011-12-11 23:23:02.000000000 +0900
@@ -517,14 +517,6 @@
 
 $header = "perl5db.pl version $VERSION";
 
-my @pattern_original = (
-    '＼(^o^)／',
-    '＼(o^ )  ',
-    '＼(^  )  ',
-    '＼(   )／',
-    '  (  ^)／',
-    '  ( ^o)／',
-);
 =head1 DEBUGGER ROUTINES
 
 =head2 C<DB::eval()>
@@ -2184,9 +2176,6 @@
         # Tack preprompt debugger actions ahead of any actual input.
         @typeahead = ( @$pretype, @typeahead );
 
-        @pattern = @pattern_original if scalar @pattern == 0;
-        my $kuru_kuru = shift @pattern;
-
 =head2 WHERE ARE WE?
 
 XXX Relocate this section?
@@ -2248,7 +2237,7 @@
             # ... and we got a line of command input ...
             defined(
                 $cmd = &readline(
-                        "$pidprompt $tid $kuru_kuru"
+                        "$pidprompt $tid DB"
                       . ( '<' x $level )
                       . ( $#hist + 1 )
                       . ( '>' x $level ) . " "