CGI-Info

 view release on metacpan or  search on metacpan

lib/CGI/Info.pm  view on Meta::CPAN

	}

	$self->_trace('Leaving _multipart_data');

	return @pairs;
}

# Robust filename generation (preventing overwriting).
# Previously used "! -e $rc" which checked existence in the CURRENT WORKING
# DIRECTORY, not the upload directory — a logic bug and a TOCTOU race.
# Now checks in the actual upload directory and caps iterations to avoid
# an infinite loop if the directory fills up.
sub _create_file_name :Protected {
	my ($self, $args) = @_;

	my $upload_dir = $self->{upload_dir};
	my $filename   = $$args{filename} . '_' . time;

	my $counter = 0;
	my $rc;
	do {

t/conf/domain_name.yml  view on Meta::CPAN

  type: string
  min: 1

config:
  test_undef: yes
  test_empty: no
  test_nuls: no
  dedup: yes

seed: 45
iterations: 5

t/conf/script_dir.yml  view on Meta::CPAN

  # 'matches' => qr{^[A-Za-z]:\[/\]|/}, 'min' => 1, 'type' => 'string'
  matches: ^[A-Za-z]:[/\\]|\/

config:
  test_undef: yes
  test_empty: no
  test_nuls: no
  dedup: yes

seed: 43
iterations: 50

t/conf/script_path.yml  view on Meta::CPAN

  # 'matches' => qr{^[A-Za-z]:\[/\]|/}, 'min' => 1, 'type' => 'string'
  matches: ^[A-Za-z]:[/\\]|\/

config:
  test_undef: yes
  test_empty: no
  test_nuls: no
  dedup: yes

seed: 42
iterations: 50