view release on metacpan or  search on metacpan

NewsClipper.pl  view on Meta::CPAN

  # First, we redirect STDERR to STDOUT so errors go to the browser.
  open(STDERR,">&STDOUT");
}

# ------------------------------------------------------------------------------

sub ProcessFlags
{
  # Get the command line flags. Localize @ARGV since getopt destroys it. We
  # do this before loading the configuration in order to get the -c flag.
  local @ARGV = @ARGV;
  Getopt::Long::Configure(
    qw(bundling noignore_case auto_abbrev prefix_pattern=-));
  GetOptions(\%opts, qw(i:s o:s c:s e:s a h d n r v P C H:s));

  # Treat left-over arguments as -e arguments.
  if (@ARGV)
  {
    my $joined_args = join ",",@ARGV;
    @ARGV = ('-e',$joined_args);
  }