fix name

diff --git a/perl/Thingy/Rt.pm b/perl/Thingy/Rt.pm
index bc6228b112b9c568149ea3ca78d3260366445875..7f94937a3fe38fdd4b841b23332742fdec1e6a0e 100644 (file)
--- a/perl/Thingy/Rt.pm
+++ b/perl/Thingy/Rt.pm
@@ -162,7 +162,7 @@ sub handle_cf
 # copy out the PC16 data for a node into the
 # pc16n and u slots if there are any users 
 #
-sub copy_node_pc16_data
+sub copy_pc16_data
 {
        my $thing = shift;
        my $uref = shift;