develooper Front page | perl.perl5.porters | Postings from March 2000

RE: [PATCH 5.5.670] AutoSplit cleanup

Thread Previous
From:
Konovalov, Vadim
Date:
March 1, 2000 08:42
Subject:
RE: [PATCH 5.5.670] AutoSplit cleanup
Message ID:
402099F49BEED211999700805FC7359F46AA2E@ru0028exch01.spb.lucent.com
From: Greg Bacon [mailto:gbacon@itsc.uah.edu]
> --- perl-5.5.670.dist/lib/AutoSplit.pm	Wed Jan 26 15:40:10 2000
> +++ perl-5.5.670/lib/AutoSplit.pm	Wed Mar  1 10:16:33 2000
> @@ -175,10 +175,10 @@
>      while(defined($_ = shift @modules)){
>  	s#::#/#g;	# incase specified as ABC::XYZ
>  	s|\\|/|g;		# bug in ksh OS/2
> -	s#^lib/##; # incase specified as lib/*.pm
> +	s#^lib/##s; # incase specified as lib/*.pm
...

What a reason to add 's' modifier to regex if you have no '.' inside it?


Good luck,
Vadim Konovalov.
use strict;%;=qw;. @ @ .;,;$;=q;@;,$,=qq>\n>=>print
unpack q,A28,x6,join q,,,map{;$;=$;{$;};$;x$_;}split q,,,q
<13321523136131112131213171212121312131711524355111113121613132111316431322>

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About