From 707eb2ca139227e1e5c487d304a3db0516126939 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 6 Feb 2011 17:41:07 +0100
Subject: [PATCH] really read data from file for write

---
 nfc-card-dumper.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/nfc-card-dumper.pl b/nfc-card-dumper.pl
index afc3140..37bee84 100755
--- a/nfc-card-dumper.pl
+++ b/nfc-card-dumper.pl
@@ -84,7 +84,7 @@ if ($r->init()) {
 	my $out_file = write_card_dump $tag => $card;
 
 	if ( $opt->write ) {
-		read_file $opt->write;
+		$card = read_file $opt->write;
 		foreach my $block ( 0 .. $tag->blocks ) {
 			my $offset = 0x10 * $block;
 			my $data = substr($card,$offset,0x10);
-- 
2.20.1