commit - 03dc15a4219636ccbaa1295c85181c3ebc088898
commit + 233429cc630b696b2d0f76eb1a2c8acf672e420c
blob - 9e33c1f61122bfd267cd124faac8eb495642be38
blob + b2d0b0a68b2b4717fc179d70f2544c9f900dd0cb
--- gpm
+++ gpm
@@ -27,6 +27,7 @@ sub usage {
 "       gpm [-d dir] ls\n";
 }
 
+# getflags: put environment flags at the start of @ARGV
 sub getflags {
 	my ($var) = @_;
 	unshift(@ARGV, shellwords $ENV{$var} // '') if defined $var && $var ne '';