Changeset 10699
- Timestamp:
- Dec 13, 2006, 3:29:58 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
r10573 r10699 1 1 # Copyright (c) 2006 Paul Price, Joshua Hoblitt 2 2 # 3 # $Id: Config.pm,v 1. 19 2006-12-08 19:58:32 priceExp $3 # $Id: Config.pm,v 1.20 2006-12-14 01:29:58 jhoblitt Exp $ 4 4 5 5 package PS::IPP::Config; … … 68 68 my $camera_list = _mdLookupMD($self->{_ipprc}, 'CAMERAS'); # List of cameras 69 69 my $filename = _mdLookupStr($camera_list, $name); # Filename of camera configuration 70 croak "Unable to find configuration file for camera $name\n" 71 if not defined $filename; 72 70 73 my @path = split /:/, $self->{path}; # List of paths to try 71 74 my $found; # Found it? … … 77 80 } 78 81 } 79 croak "Unable to find camera configuration file $filename\n" if not defined $found; 82 croak "Unable to find camera configuration file $filename\n" 83 if not defined $found; 80 84 81 85 # Read the file … … 85 89 $self->{camera} = $parser->parse( join '', @contents); # The parsed metadata config 86 90 91 # XXX why isn't just $self being returned here? -JH 87 92 return defined $self->{camera}; 88 93 }
Note:
See TracChangeset
for help on using the changeset viewer.
