Changeset 15027 for misc/runpugs/perl

Timestamp:

01/10/07 17:10:03 (23 months ago)

Author:

andara

Message:

[runpugs]
-release of what was the 'devel' version, v0.3.0
-window/tab close now terminates session. Thanks diakopter.
-for those who didn't use the devel version: it's much faster now

Files:

• misc/runpugs/perl/runpugs3.pl (modified) (2 diffs)

misc/runpugs/perl/runpugs3.pl

@@ -68 +68 @@
                 last;
         };
-        $cmdline=~/$Web::Terminal::Settings::quit_message/ 
+        $cmdline=~/$Web::Terminal::Settings::quit_message|Aborted/ 
         && do {
         $cmd='clear';
@@ -135 +135 @@
             $reply = "Sorry, Unicode is not yet supported.\n".$Web::Terminal::Settings::prompt;
         } else {
-            if ($cmd=~/>\s+(\:*help)\b/) {
+            if ($cmd=~/\s*(\:*help)\b/) {
                 $cmd=~s/$1/:h/;
-            } elsif ($cmd=~/>\s+(\:*(quit|bye))\b/) {
+            } elsif ($cmd=~/\s*(\:*(quit|bye))\b/) {
                 $cmd=~s/$1/:q/;
             }