Changeset 9682

Timestamp:

12/14/09 01:48:16 (2 years ago)

Author:

szabgab

Message:

[Debug::Client] /x regex

File:

• trunk/Debug-Client/lib/Debug/Client.pm (modified) (1 diff)

trunk/Debug-Client/lib/Debug/Client.pm

@@ -358 +358 @@
     # the last line before 
     # main::(t/eg/01-add.pl:8):  my $z = $x + $y;
-    if ($line =~ /^([\w:]*)\(([^\)]*):(\d+)\):\t(.*)/m) {
+    if ($line =~ /^([\w:]*)                  # module
+                  \(   ([^\)]*):(\d+)   \)   # (file:row)
+                  :\t                        # :
+                  (.*)                       # content
+                  /mx) {
         ($module, $file, $row, $content) = ($1, $2, $3, $4);
     }