From b937f4840a4b4a144a692b2a52018ad1f40f0edf Mon Sep 17 00:00:00 2001
From: david <david@socialnerds.org>
Date: Sun, 23 Jun 2013 13:51:44 +0200
Subject: [PATCH] added source to lifesaver.sh

---
 lifesaver.sh | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lifesaver.sh b/lifesaver.sh
index 0bc7727..c1250ff 100755
--- a/lifesaver.sh
+++ b/lifesaver.sh
@@ -1,6 +1,9 @@
 #!/usr/bin/perl
+
+#source: http://www.etherealbits.com/2012/06/the-perl-script-that-may-save-your-life/
+
 open(DEV, '/dev/sda1') or die "Can't open: $!\n";
 while (read(DEV, $buf, 4096)) {
   print tell(DEV), "\n", $buf, "\n"
-    if $buf =~ /fletter/;
+    if $buf =~ /stringtosearchfor/;
 }