update subroutine name

zhg5482 · Feb 12, 2014 · 95fc4f5 · 95fc4f5
1 parent cdc3632
commit 95fc4f5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/template/perl/AbstractClass/ConcreteClass.pm b/src/template/perl/AbstractClass/ConcreteClass.pm
@@ -11,11 +11,11 @@ sub new {
 }
 
 sub primitiveOperation1 {
-	print "-->", (caller(0))[3], "\n";
+	print scalar((caller(0))[3]), "\n";
 }
 
 sub primitiveOperation2 {
-	print "-->", (caller(0))[3], "\n";
+	print scalar((caller(0))[3]), "\n";
 }
 
 1;