Hi, I'm running a perl script using perl 5.10 and getting this warning: $* is no longer supported at migrate.pl line 380. I know very little about perl so am wondering if someone can point me to documentation about what $* was and how to migrate code to whatever is supposed to be used instead?
fyi the script I'm running is to migrate a source code database from vss to svn and can be found here: http://www.x2systems.com/files/migrate.pl.txt The two snippets of code that use it are: $* = 1; $/ = ':'; $cmd = $SSCMD . " Dir -I- \"$proj\""; $_ = `$cmd`; # what this next expression does is to merge wrapped lines like: # $/DeviceAuthority/src/com/eclyptic/networkdevicedomain/ deviceinterrogator/excep # tion: # into: # $/DeviceAuthority/src/com/eclyptic/networkdevicedomain/ deviceinterrogator/exception: s/\n((\w*\-*\.*\w*\/*)+\:)/$1/g; $* = 0; and then some ways later on: $cmd = $SSCMD . " get -GTM -W -I-Y -GL\"$localdir\" -V $version \"$file\" 2>&1"; $out = `$cmd`; # get rid of stupid VSS warning messages $* = 1; $out =~ s/\n?Project.*rebuilt\.//g; $out =~ s/\n?File.*rebuilt\.//g; $out =~ s/\n.*was moved out of this project.*rebuilt \.//g; $out =~ s/\nContinue anyway.*Y//g; $* = 0; many thanks, - Rory (sorry, I previously posted this to perl.perl5.porters but think that was probably the wrong group) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
