--- trunk/lib/WebPAC/Input.pm	2007/02/04 12:19:51	793
+++ trunk/lib/WebPAC/Input.pm	2007/02/04 13:28:30	797
@@ -473,7 +473,7 @@
 
 	my $log = $self->_get_logger();
 
-	$log->confess("called without pos") unless defined($pos);
+	$log->logconfess("called without pos") unless defined($pos);
 
 	if ($pos < 1) {
 		$log->warn("seek before first record");
@@ -568,6 +568,11 @@
 
 sub _get_regex {
 	my ($sf,$from,$to) = @_;
+
+	# protect /
+	$from =~ s!/!\\/!gs;
+	$to =~ s!/!\\/!gs;
+
 	if ($from =~ m/^regex:(.+)$/) {
 		$from = $1;
 	} else {