Subversion Repositories DevTools

Rev

Rev 2615 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2615 Rev 2880
Line 66... Line 66...
66 
# Retrieve the data corresponding to $filename and $revision.  Store each line
 66 
# Retrieve the data corresponding to $filename and $revision.  Store each line
67 
# into $content_array_ref.
 67 
# into $content_array_ref.
68 
sub retrieve ($$$\$) {
 68 
sub retrieve ($$$\$) {
69 
    my ($self, $filename, $revision, $content_array_ref) = @_;
 69 
    my ($self, $filename, $revision, $content_array_ref) = @_;
70 
 
 70 
 
- 
 
 71 
    #
- 
 
 72 
    #   Kludge
- 
 
 73 
    #   If the user has provided a Tag with a PEG, then the filename is
- 
 
 74 
    #   mangled. Eg:
- 
 
 75 
    #       MASS_Dev_Bus/Financial/cpp/Acquirer/tags/Acquirer_0.0.9000.bkk.1@24165/src/SetId/SetAcquirerIdConfig.cpp
- 
 
 76 
    #
- 
 
 77 
    #   Test Fix
- 
 
 78 
    #   Remove anyhing that looks like @nnnnn/
- 
 
 79 
    #
- 
 
 80 
    $filename =~ s~\@[0-9]+/~/~;
- 
 
 81 
 
- 
 
 82 
 
71 
    # Sanitise the filename.
 83 
    # Sanitise the filename.
72 
    $filename = sanitise_url_component($filename);
 84 
    $filename = sanitise_url_component($filename);
73 
 
 85 
 
74 
    my $read_data;
 86 
    my $read_data;
75 
    my $read_stdout_fh = new FileHandle;
 87 
    my $read_stdout_fh = new FileHandle;