diff options
Diffstat (limited to 'bin/ChangeLogEditor/SVNFileLocator.pm')
-rw-r--r-- | bin/ChangeLogEditor/SVNFileLocator.pm | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/bin/ChangeLogEditor/SVNFileLocator.pm b/bin/ChangeLogEditor/SVNFileLocator.pm deleted file mode 100644 index 246b9dc9c7f..00000000000 --- a/bin/ChangeLogEditor/SVNFileLocator.pm +++ /dev/null @@ -1,53 +0,0 @@ -package SVNFileLocator; - -# ************************************************************ -# Description : Use SVN to determine the list of modified files. -# Author : Chad Elliott -# Create Date : 11/29/2005 -# ************************************************************ - -# ************************************************************ -# Pragmas -# ************************************************************ - -use strict; -use FileHandle; - -use FileLocator; - -use vars qw(@ISA); -@ISA = qw(FileLocator); - -# ************************************************************ -# Subroutine Section -# ************************************************************ - -sub locate { - my($self) = shift; - my(@dirs) = @_; - my($fh) = new FileHandle(); - my(@modified) = (); - my(@removed) = (); - my(@conflicts) = (); - my(@unknown) = (); - my($nul) = ($^O eq 'MSWin32' ? 'nul' : '/dev/null'); - - if (open($fh, "svn diff @dirs 2> $nul |")) { - while(<$fh>) { - my($line) = $_; - if ($line =~ /^Index:\s+(.*)/) { - if (-r $1) { - push(@modified, $1); - } - else { - push(@removed, $1); - } - } - } - close($fh); - } - return \@modified, \@removed, \@conflicts, \@unknown; -} - - -1; |