diff --git a/gobject/ChangeLog b/gobject/ChangeLog
index 76de021ba..de0aa0271 100644
--- a/gobject/ChangeLog
+++ b/gobject/ChangeLog
@@ -1,3 +1,8 @@
+Mon Apr 30 20:03:56 2001  Tim Janik  <timj@gtk.org>
+
+	* glib-mkenums (usage): removed \v escaping, newer perl versions don't
+	support this, and it'S probably useless anyways.
+
 Sat Apr 28 23:39:42 2001  Tim Janik  <timj@gtk.org>
 
 	* gsignal.[hc]: made signal handler and emission hook ids gulongs.
diff --git a/gobject/glib-mkenums b/gobject/glib-mkenums
index fc6588ead..4efcb3031 100755
--- a/gobject/glib-mkenums
+++ b/gobject/glib-mkenums
@@ -187,7 +187,7 @@ if (length($fhead)) {
 
     $prod =~ s/\@filename\@/$ARGV/g;
     $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 		
     print "$prod\n";
 }
@@ -306,7 +306,7 @@ while (<>) {
 
 		$prod =~ s/\@filename\@/$ARGV/g;
 		$prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-		$prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+		$prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 		
 		print "$prod\n";
 	    }
@@ -323,7 +323,7 @@ while (<>) {
 	    if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; }
 	    if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; }
 	    $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-	    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+	    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 
 	    print "$prod\n";
 	}
@@ -339,7 +339,7 @@ while (<>) {
 	    if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; }
 	    if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; }
             $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-            $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+            $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 	    
             print "$prod\n";
 	}
@@ -348,7 +348,7 @@ while (<>) {
 	    my $prod = $vprod;
 	    
 	    $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-	    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+	    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 	    for (@entries) {
 		my ($name,$nick) = @{$_};
 		my $tmp_prod = $vprod;
@@ -374,7 +374,7 @@ while (<>) {
 	    if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; }
 	    if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; }
             $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-            $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+            $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 	    
             print "$prod\n";
 	}
@@ -386,7 +386,7 @@ if (length($ftail)) {
 
     $prod =~ s/\@filename\@/$ARGV/g;
     $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 		
     print "$prod\n";
 }
diff --git a/gobject/glib-mkenums.in b/gobject/glib-mkenums.in
index fc6588ead..4efcb3031 100755
--- a/gobject/glib-mkenums.in
+++ b/gobject/glib-mkenums.in
@@ -187,7 +187,7 @@ if (length($fhead)) {
 
     $prod =~ s/\@filename\@/$ARGV/g;
     $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 		
     print "$prod\n";
 }
@@ -306,7 +306,7 @@ while (<>) {
 
 		$prod =~ s/\@filename\@/$ARGV/g;
 		$prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-		$prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+		$prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 		
 		print "$prod\n";
 	    }
@@ -323,7 +323,7 @@ while (<>) {
 	    if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; }
 	    if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; }
 	    $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-	    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+	    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 
 	    print "$prod\n";
 	}
@@ -339,7 +339,7 @@ while (<>) {
 	    if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; }
 	    if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; }
             $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-            $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+            $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 	    
             print "$prod\n";
 	}
@@ -348,7 +348,7 @@ while (<>) {
 	    my $prod = $vprod;
 	    
 	    $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-	    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+	    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 	    for (@entries) {
 		my ($name,$nick) = @{$_};
 		my $tmp_prod = $vprod;
@@ -374,7 +374,7 @@ while (<>) {
 	    if ($flags) { $prod =~ s/\@Type\@/Flags/g; } else { $prod =~ s/\@Type\@/Enum/g; }
 	    if ($flags) { $prod =~ s/\@TYPE\@/FLAGS/g; } else { $prod =~ s/\@TYPE\@/ENUM/g; }
             $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-            $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+            $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 	    
             print "$prod\n";
 	}
@@ -386,7 +386,7 @@ if (length($ftail)) {
 
     $prod =~ s/\@filename\@/$ARGV/g;
     $prod =~ s/\\a/\a/g; $prod =~ s/\\b/\b/g; $prod =~ s/\\t/\t/g; $prod =~ s/\\n/\n/g;
-    $prod =~ s/\\v/\v/g; $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
+    $prod =~ s/\\f/\f/g; $prod =~ s/\\r/\r/g;
 		
     print "$prod\n";
 }