what is this expr doing exactly?

[Reddy Kankanala]

can some one tell me what is this doing? i found this in Logfile::Rotate

$currn    =~ s+.*/([^/]*)+$self->{'Dir'}/$1+    if defined($self->{'Dir'});

Thanks.
Reddy
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs