[popfile-commit] engine/POPFile Loader.pm,1.33,1.34

[Sam S. <ssc...@us...>]

Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2707/POPFile

Modified Files:
	Loader.pm 
Log Message:
Allow unrecognized command-line options (anything other than
 --verbose) to pass through to POPFile::Configuration.
Make "verbose" operate as a boolean command-line (no value needs to
be specified) eg: --verbose or --noverbose.

Index: Loader.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Loader.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Loader.pm	21 Jan 2005 20:40:37 -0000	1.33
--- Loader.pm	18 Feb 2005 12:16:44 -0000	1.34
***************
*** 34,38 ****
  #----------------------------------------------------------------------------
  
! use Getopt::Long;
  
  #----------------------------------------------------------------------------
--- 34,38 ----
  #----------------------------------------------------------------------------
  
! use Getopt::Long qw(:config pass_through);
  
  #----------------------------------------------------------------------------
***************
*** 167,171 ****
      # Parse just the --verbose command-line option
  
!     GetOptions( "verbose=n" => \$self->{debug__} );
  }
  
--- 167,172 ----
      # Parse just the --verbose command-line option
  
!     GetOptions( "verbose!" => \$self->{debug__},
!                 "quiet" => sub{ $self->{debug__} = 0 } );
  }