diff options
Diffstat (limited to 'vcx')
| -rw-r--r-- | vcx | 13 |
1 files changed, 5 insertions, 8 deletions
@@ -22,7 +22,7 @@ use constant REV_DIR => VCX_DIR . '/rev'; # Commits use constant TMP_DIR => VCX_DIR . '/index'; use constant TMP_TREE => TMP_DIR . '/tree'; use constant TMP_DIFF => TMP_DIR . '/deltas'; -use constant TMP_META_FILE => TMP_DIR . '/meta'; +use constant TMP_META => TMP_DIR . '/meta'; Getopt::Long::Configure("bundling"); @@ -160,7 +160,7 @@ sub run_add { my $next_id_hex = to_hex_id(from_hex_id($head) + 1); my %entries; - open my $afh, '>>', TMP_META_FILE or die $!; + open my $afh, '>>', TMP_META or die $!; init_stage($latest_tree_dir, \%entries); @@ -202,15 +202,12 @@ sub run_add { # CASE 2: Symlink elsif (-l _) { my $target = readlink($File::Find::name); - if (-l $prev_link) { return if readlink($prev_link) eq $target; } - if (-l $staged_path) { return if readlink($staged_path) eq $target; } - stage_link($File::Find::name, $staged_path); } }, @@ -251,7 +248,7 @@ sub run_add { sub run_commit { my ($msg) = @_; - my $content_changed = -s TMP_META_FILE; + my $content_changed = -s TMP_META; my ($staged_tree_ptr) = bsd_glob(File::Spec->catfile(TMP_DIR, "tree-*")); my ($tree_hash) = $staged_tree_ptr =~ /tree-([a-f0-9]{40})$/; @@ -277,8 +274,8 @@ sub run_commit { make_path($rev_dir); # Save file to store - if (-e TMP_META_FILE) { - open my $mfh, '<', TMP_META_FILE or die $!; + if (-e TMP_META) { + open my $mfh, '<', TMP_META or die $!; while (my $rel = <$mfh>) { chomp $rel; my $obj_name = sha1_hex($rel); |