diff --git a/tools/pdbgen/pdb/text_layer.pdb b/tools/pdbgen/pdb/text_layer.pdb
index 2bad96013e..8ed045db65 100644
--- a/tools/pdbgen/pdb/text_layer.pdb
+++ b/tools/pdbgen/pdb/text_layer.pdb
@@ -163,10 +163,7 @@ Note: Setting the markup of a text layer using Pango's markup is not
 supported for now.
 HELP
 
-    $author = 'Barak Itkin <lightningismyname@gmail.com>';
-    $copyright = 'Barak Itkin';
-    $date = '2010';
-    $since = '2.8';
+    barak_pdb_misc('2010', '2.8');
 
     @inargs = (
         { name => 'layer', type => 'layer',
@@ -1162,10 +1159,7 @@ keeping it as a text layer and not converting it to a bitmap like
 gimp_layer_resize() would do.
 HELP
 
-    	$author = 'Barak Itkin <lightningismyname@gmail.com>';
-	$copyright = 'Barak Itkin';
-	$date = '2009';
-	$since = '2.8';
+    barak_pdb_misc('2009', '2.8');
 
     @inargs = (
         { name => 'layer', type => 'layer',
diff --git a/tools/pdbgen/pdb/vectors.pdb b/tools/pdbgen/pdb/vectors.pdb
index 4900ff6fda..a16e9b7070 100644
--- a/tools/pdbgen/pdb/vectors.pdb
+++ b/tools/pdbgen/pdb/vectors.pdb
@@ -122,10 +122,7 @@ sub vectors_copy {
 This procedure copies the specified vectors object and returns the copy.
 HELP
 
-    $author = 'Barak Itkin <lightningismyname@gmail.com>';
-    $copyright = 'Barak Itkin';
-    $date = '2008';
-    $since = '2.6';
+    barak_pdb_misc('2008', '2.6');
 
     @inargs = (
 	{ name => 'vectors', type => 'vectors',
diff --git a/tools/pdbgen/stddefs.pdb b/tools/pdbgen/stddefs.pdb
index 425c12d731..343aa5c14b 100644
--- a/tools/pdbgen/stddefs.pdb
+++ b/tools/pdbgen/stddefs.pdb
@@ -57,6 +57,10 @@ sub austin_pdb_misc {
     contrib_pdb_misc('Austin Donnelly', '', @_);
 }
 
+sub barak_pdb_misc {
+    contrib_pdb_misc('Barak Itkin', 'lightningismyname@gmail.com', @_);
+}
+
 sub bill_pdb_misc {
     contrib_pdb_misc('Bill Skaggs', 'weskaggs@primate.ucdavis.edu', @_);
 }