[Codestriker-commits] CVS update: codestriker/lib/Codestriker/Repository Vss.pm
Brought to you by:
sits
|
From: <si...@us...> - 2004-11-09 22:18:59
|
Created Codestriker topic at: http://codestriker.sourceforge.net/cgi-bin/codestriker.pl?topic=1919759&action=view&brmode=1&fview=-1 User: sits Date: 04/11/09 14:18:45 Modified: lib/Codestriker/Repository Vss.pm Log: VSS diff generation can now handle a file for the module field. Index: Vss.pm =================================================================== RCS file: /cvsroot/codestriker/codestriker/lib/Codestriker/Repository/Vss.pm,v retrieving revision 1.18 retrieving revision 1.19 diff -u -r1.18 -r1.19 --- Vss.pm 8 Nov 2004 22:40:26 -0000 1.18 +++ Vss.pm 9 Nov 2004 22:18:41 -0000 1.19 @@ -15,7 +15,7 @@ use IO::Handle; # Switch for emitting debug information. -my $_DEBUG = 1; +my $_DEBUG = 0; # Constructor, which takes the username and password as parameters. sub new { @@ -162,7 +162,13 @@ # Collect the list of filename and revision numbers into a list. my @files = (); my @versions = (); + + # Initialise this in case module just refers to a single file. my $current_dir = ''; + if ($module_name =~ /^(.*)\/[^\/]+$/o) { + $current_dir = $1; + } + while (<VSS>) { if (/^(\$\/.*):$/o) { # Entering a new top-level directory. |