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

(-)a/tools/picture-upload.pl (-2 / +1 lines)
Lines 80-86 if ( ($op eq 'Upload') && $uploadfile ) { # Case is important in these ope Link Here
80
    $debug and warn "dirname = $dirname";
80
    $debug and warn "dirname = $dirname";
81
    my $filesuffix;
81
    my $filesuffix;
82
    if ( $uploadfilename =~ m/(\..+)$/i ) {
82
    if ( $uploadfilename =~ m/(\..+)$/i ) {
83
        my $filesuffix = $1;
83
        $filesuffix = $1;
84
    }
84
    }
85
    ( $tfh, $tempfile ) = File::Temp::tempfile( SUFFIX => $filesuffix, UNLINK => 1 );
85
    ( $tfh, $tempfile ) = File::Temp::tempfile( SUFFIX => $filesuffix, UNLINK => 1 );
86
    $debug and warn "tempfile = $tempfile";
86
    $debug and warn "tempfile = $tempfile";
87
- 

Return to bug 7643