*** ./contrib/adddepend/adddepend.orig	2003-11-30 07:39:16.000000000 +0900
--- ./contrib/adddepend/adddepend	2006-01-18 00:46:32.000000000 +0900
***************
*** 469,475 ****
  		my $seq = $row->{'adsrc'};
  
  		# Extract the sequence name from the default
! 		$seq =~ s|^nextval\(["']+([^'"\)]+)["']+.*\)$|$1|g;
  
  		# Does the user want to upgrade this sequence?
  		print <<MSG
--- 469,475 ----
  		my $seq = $row->{'adsrc'};
  
  		# Extract the sequence name from the default
! 		$seq =~ s|^nextval\(\(["']+([^'"\)]+)["']+.*\)$|$1|g;
  
  		# Does the user want to upgrade this sequence?
  		print <<MSG