perl5db: refactored a regex match.
authorShlomi Fish <shlomif@shlomifish.org>
Mon, 1 Oct 2012 18:14:21 +0000 (20:14 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:31 +0000 (09:18 -0500)
This may improve performance a little.

lib/perl5db.pl

index 4df33fe..4a73521 100644 (file)
@@ -5520,7 +5520,7 @@ sub cmd_w {
     my $expr = shift || '';
 
     # If expression is not null ...
-    if ( $expr =~ /^(\S.*)/ ) {
+    if ( $expr =~ /\A\S/ ) {
 
         # ... save it.
         push @to_watch, $expr;