You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
The problem seems to be the (^|[\/\\]) - loosing the ^| from the group i.e.
my ($name) = $path =~ m#(?:[\/\\])([\w-]+)(?:\.\w+)$#;
print "'$name'\n";
Does the expected - provided of course that there is a / or \ in the string.
Note that this is with multiplicity _ON_
Multiplicity does not affect the problem.
This patch adds tests for the expected behaviour.
Inline Patch
--- t/op/re-tests.ship Sat Dec 18 11:24:59 1999
+++ t/op/re-tests Sat Dec 18 11:22:13 1999
@@ -748,3 +748,6 @@
'\.c(pp|xx|c)?$'i IO.c y - -
'(\.c(pp|xx|c)?$)'i IO.c y $1 .c
^([a-z]:) C:/ n - -
+'(?:^|[\/\\])([\w-]+)(?:\.\w+)?$' t/widget.t y - -
+'(?:^|[\/\\])([\w-]+)(?:\.\w+)?$' widget.t y - -
+'(?:[\/\\])([\w-]+)(?:\.\w+)?$' t/widget.t y - -
--
Migrated from rt.perl.org#1921 (status was 'resolved')
Searchable as RT1921$
The text was updated successfully, but these errors were encountered: