[perl #27505] [PATCH] allow to run classes/pmc2c2.pl from any directory

[via RT]

# New Ticket Created by  Ilya Martynov 
# Please include the string:  [perl #27505]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=27505 >



Patch below my signature is required to allow to run classes/pmc2c2.pl
from any directory. Otherwise it will complain it cannod find .dump
files unless it is being run from parrot directory.

-- 
Ilya Martynov,  [EMAIL PROTECTED]
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support
UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org

*** pmc2c2.pl.~1.9.~    2004-03-04 23:29:19.000000000 +0300
--- pmc2c2.pl   2004-03-08 13:58:03.000000000 +0300
***************
*** 482,491 ****
              $dump =~ s!^classes/!!;
          }
          elsif ($dump =~ m!^vtable!) {
!             $dump = "../vtable.dump";
          }
          unless ( -e $dump) {
!             $dump = "../classes/$dump";
          }
      }
      print "Reading $dump\n" if $opt{verbose};
--- 482,491 ----
              $dump =~ s!^classes/!!;
          }
          elsif ($dump =~ m!^vtable!) {
!             $dump = "$FindBin::Bin/../vtable.dump";
          }
          unless ( -e $dump) {
!             $dump = "$FindBin::Bin/../classes/$dump";
          }
      }
      print "Reading $dump\n" if $opt{verbose};