diff options
| author | Bas Zoetekouw <bas> | 2008-09-29 22:41:01 +0000 |
|---|---|---|
| committer | Bas Zoetekouw <bas> | 2008-09-29 22:41:01 +0000 |
| commit | e4497fae5389ae3fb3abc9f27f877ce4447f9489 (patch) | |
| tree | aa3d3de955bf1f0c79d5e348e9c5b5253c5cda7d /Perl/Local | |
| parent | 4ff4e8753a5bac08a6297a73cc45501e534eec75 (diff) | |
Minor changes
CVS version numbers
Perl/Local/VCS_CVS.pm: 1.7 -> 1.8
Diffstat (limited to 'Perl/Local')
| -rw-r--r-- | Perl/Local/VCS_CVS.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Perl/Local/VCS_CVS.pm b/Perl/Local/VCS_CVS.pm index 6b2317ee549..0cba4af942a 100644 --- a/Perl/Local/VCS_CVS.pm +++ b/Perl/Local/VCS_CVS.pm @@ -347,8 +347,7 @@ sub vcs_get_log =item vcs_get_diff -Returns a hash of (filename,diff) pairs info about a specified file or -directory. +Returns a hash of (filename,diff) pairs containing the unified diff between two version of a (number of) files. The first argument is a name of a checked-out file. The second and third argument specify the starting and end revision of the log entries. If the @@ -460,7 +459,10 @@ sub vcs_get_file my $text; open ( my $cvs, '-|', $command ) or croak("Error while executing `$command': $!"); - $text .= $_ while <$cvs>; + while ( my $line = <$cvs> ) + { + $text .= $line; + } close( $cvs ); croak("Error while executing `$command': $!") unless WIFEXITED($?); |