Hook script parsing help

I am uing a hook script to check Added files to make sure they have
the svn:needs-lock property..
I want to make sure updated files get checked for this property as
well but I am not very good with perl...

In this section of the hook script:
1 # Add only files that were added to @files_added
2 if ($line =~ /^A. (.*[^\/])$/)
3 {
4 push(@files_added, $1);
5 }

I want to change line 2 to look for A or U.... how can I code this?

---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscribe_at_subversion.tigris.org
For additional commands, e-mail: users-help_at_subversion.tigris.org
Received on 2008-05-01 22:12:25 CEST