Changeset 11997
- Timestamp:
- 07/25/10 10:35:46 (19 months ago)
- File:
-
- 1 edited
-
trunk/Padre/lib/Padre/Search.pm (modified) (11 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre/lib/Padre/Search.pm
r11931 r11997 50 50 my $self = bless {@_}, $class; 51 51 unless ( defined $self->find_term ) { 52 die ("Did not provide 'find_term' search term");52 die "Did not provide 'find_term' search term"; 53 53 } 54 54 unless ( length $self->find_term ) { … … 159 159 return $self->editor_search_down(@_); 160 160 } 161 die ("Missing or invalid content object to search in");161 die "Missing or invalid content object to search in"; 162 162 } 163 163 … … 167 167 return $self->editor_search_up(@_); 168 168 } 169 die ("Missing or invalid content object to search in");169 die "Missing or invalid content object to search in"; 170 170 } 171 171 … … 175 175 return $self->editor_replace(@_); 176 176 } 177 die ("Missing or invalid content object to search in");177 die "Missing or invalid content object to search in"; 178 178 } 179 179 … … 183 183 return $self->editor_replace_all(@_); 184 184 } 185 die ("Missing or invalid content object to search in");185 die "Missing or invalid content object to search in"; 186 186 } 187 187 … … 191 191 return $self->editor_count_all(@_); 192 192 } 193 die ("Missing or invalid content object to search in");193 die "Missing or invalid content object to search in"; 194 194 } 195 195 … … 205 205 my $editor = shift; 206 206 unless ( Params::Util::_INSTANCE( $editor, 'Padre::Wx::Editor' ) ) { 207 die ("Failed to provide editor object to search in");207 die "Failed to provide editor object to search in"; 208 208 } 209 209 … … 225 225 my $editor = shift; 226 226 unless ( Params::Util::_INSTANCE( $editor, 'Padre::Wx::Editor' ) ) { 227 die ("Failed to provide editor object to search in");227 die "Failed to provide editor object to search in"; 228 228 } 229 229 … … 246 246 my $editor = shift; 247 247 unless ( Params::Util::_INSTANCE( $editor, 'Padre::Wx::Editor' ) ) { 248 die ("Failed to provide editor object to replace in");248 die "Failed to provide editor object to replace in"; 249 249 } 250 250 … … 286 286 my $editor = shift; 287 287 unless ( Params::Util::_INSTANCE( $editor, 'Padre::Wx::Editor' ) ) { 288 die ("Failed to provide editor object to replace in");288 die 'Failed to provide editor object to replace in'; 289 289 } 290 290 … … 316 316 my $editor = shift; 317 317 unless ( Params::Util::_INSTANCE( $editor, 'Padre::Wx::Editor' ) ) { 318 die ("Failed to provide editor object to replace in");318 die "Failed to provide editor object to replace in"; 319 319 } 320 320
Note: See TracChangeset
for help on using the changeset viewer.
