Comment out debug print statement

PDLPorters · Feb 20, 2016 · 2ba1acc · 2ba1acc
1 parent 903750d
commit 2ba1acc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IO/FlexRaw/FlexRaw.pm b/IO/FlexRaw/FlexRaw.pm
@@ -520,7 +520,7 @@ sub readflex {
     local ($offset) = 0;
     my ($newfile, $swapbyte, $f77mode, $zipt) = (1,0,0,0);
     my $d;
-    print("readflex: name is $name\n");
+    # print("readflex: name is $name\n");
     # Test if $name is a file handle
     if (defined fileno($name)) {
 		$d = $name;