flow.pl

eexpress · Aug 3, 2014 · dd2c694 · dd2c694
1 parent 9c024e0
commit dd2c694
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/flow.pl b/flow.pl
@@ -12,7 +12,8 @@
 $QUIT='[shape=egg]'.$end; $EXIT='[shape=house]'.$end;
 #http://www.graphviz.org/content/node-shapes
 
-$base=$ARGV[0]; $base=~s/(.+)\.[^.]*/\1/;
+$base=$ARGV[0]; $base=~s/.\K\.[^.]*//;
+#$base=$ARGV[0]; $base=~s/(.+)\.[^.]*/\1/;
 #--------------------------------
 if(($#ARGV==-1) || ($ARGV[0]=~/--help|-h/i) || ! -f "$ARGV[0]"){
 print <<HELP;