View | Details | Raw Unified | Return to bug 8268
Collapse All | Expand All

(-)a/tools/export.pl (-2 / +2 lines)
Lines 345-351 sub download_backup { Link Here
345
    my $filename  = $args->{filename};
345
    my $filename  = $args->{filename};
346
346
347
    return unless ( $directory && -d $directory );
347
    return unless ( $directory && -d $directory );
348
    return unless ( $filename =~ m/$extension(\.(gz|bz2|xz))?$/ && not $filename =~ m#|# );
348
    return unless ( $filename =~ m/\.$extension(\.(gz|bz2|xz))?$/ );
349
    return if ( $filename =~ m#/# );
349
    $filename = "$directory/$filename";
350
    $filename = "$directory/$filename";
350
    return unless ( -f $filename && -o $filename );
351
    return unless ( -f $filename && -o $filename );
351
    return unless ( open(my $dump, '<', $filename) );
352
    return unless ( open(my $dump, '<', $filename) );
352
- 

Return to bug 8268