Proper cwd-finding

ingydotnet · Feb 18, 2013 · deee382 · deee382
1 parent 192b9fa
commit deee382
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/bin/show-votes b/bin/show-votes
@@ -1,4 +1,5 @@
 #!/usr/bin/perl -n -0400
+use Cwd;
 if (s/.*VOTE:\s*(.*?)#?\s*:ETOV/$1/s) {
     my @lines = map {
         if (/s(?:ays|ez):?\s*(\w*)/) {
@@ -17,5 +18,6 @@ if (s/.*VOTE:\s*(.*?)#?\s*:ETOV/$1/s) {
         }
         "$_\n"
     } split /\n/, $1;
-    print qq{\e[34;1m`pwd`/$ARGV\e[0m\n@lines}
+    $pwd = cwd();
+    print qq{\e[34;1m$pwd/$ARGV\e[0m\n@lines}
 }